Edit code VBA

[sofas]

Hello, I want to calculate the sum of the number of cells after there is the value in the cell ("F3")... Exemple if you find the value in ("A80")
Cells are counted from A80 to me A99
smiller and which is squale to CELLE F3

Sub Count_cells_if()

Dim ws As Worksheet
Set ws = Worksheets("sh1")

ws.Range("a100") = Application.WorksheetFunction.CountIf(ws.Range("a1:a99"), "<=" & ws.Range("f3"))
ws.Range("b100") = Application.WorksheetFunction.CountIf(ws.Range("b1:b99"), "<=" & ws.Range("f3"))
ws.Range("c100") = Application.WorksheetFunction.CountIf(ws.Range("c1:c99"), "<=" & ws.Range("f3"))
ws.Range("d100") = Application.WorksheetFunction.CountIf(ws.Range("d1:d99"), "<=" & ws.Range("f3"))


End Sub

 

[Legacy 143009]

Your code seem to be OK. What is the problem? Do you want to count after where the value first appears?

 

[sofas]

Your code seem to be OK. What is the problem? Do you want to count after where the value first appears?

Hello...yes, I want to count from where the value is

 

[Legacy 143009]

Like this?

Sub Count_cells_if()

Dim ws As Worksheet
Set ws = Worksheets("sh1")

ws.Range("a100") = Application.WorksheetFunction.CountIf(ws.Range("a"&Application.WorksheetFunction.Match(Range("f3"),Range("a1:a99"),0)&":a99"), "<=" & ws.Range("f3"))
ws.Range("b100") = Application.WorksheetFunction.CountIf(ws.Range("b"&Application.WorksheetFunction.Match(Range("f3"),Range("b1:b99"),0)&":b99"), "<=" & ws.Range("f3"))
ws.Range("c100") = Application.WorksheetFunction.CountIf(ws.Range("c"&Application.WorksheetFunction.Match(Range("f3"),Range("c1:c99"),0)&":c99"), "<=" & ws.Range("f3"))
ws.Range("d100") = Application.WorksheetFunction.CountIf(ws.Range("d"&Application.WorksheetFunction.Match(Range("f3"),Range("d1:d99"),0)&":d99"), "<=" & ws.Range("f3"))


End Sub