все, что я пытаюсь запустить код, который будет проверять, является ли одна ячейка в строке "service", тогда, если так, я хочу, чтобы он проверял ячейки в строках ниже в другом столбце, если они говорят "clini c «если это правда, вычтите значение в отдельной ячейке в строке clini c из исходной строки службы, если даты clini c находятся внутри службы. Я полагаю, что я хотя бы немного приблизился, но не могу применить его к любым ячейкам на листе. Любая помощь будет принята с благодарностью. (Столбец 11 - это столбец службы или clini c).
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Service_Start_Date As Range
Dim Service_End_Date As Range
Dim Clinic_Date As Range
Dim Activity_Type As Range
Dim Total_Days As Range
Set Activity_Type = Columns(11)
Set Service_Start_Date = Columns("J")
Set Service_End_Date = Columns("K")
Set Total_Days = Columns("M")
col = "J"
Dim i As Integer
For i = 1 To 10000:
If Cells(i, 11) = "Service" Then:
For J = 1 To 100:
While Cells(i + 1, 11) = "Clinic"
If Cells(i + 1, Service_Start_Date) <= Cells(i, Service_End_Date) And Cells(i + 1, Service_Start_Date) >= Cells(i, Service_Start_Date) Then:
Range(i, Total_Days).Value1 -Range(i + J, Total_Days).Value2
Wend
Next J
Next i
End Sub