[OrzelKaskader]

Mirki spod tagu #vba i #excel pomożecie z jednym makrem?

Mam taki kod jak poniżej. Ma mi on czyścić komórki z zakresu E5:G5 jeśli C5 jest puste. Jak to przerobić na takie, żeby robiło to samo aż do C14? Czyli czyści E6:G6 jak C6 jest puste itd. (bez kopiowania kodu 10 razy ( ͡° ͜ʖ ͡°) )

If VarType(Range("C5")) = vbEmpty Then
Range("E5:G5").ClearContents
ElseIf VarType(Range("E5:G5")) = vbString Then
If Len(Range("E5:G5")) = 0 Then
Range("C5").ClearContents
End if
End If

Z góry dzięki!

[czyznaszmnie]

@OrzelKaskader: chyba najprościej byłoby użyć pętli for, i osobnego arkusza w którym zdefiniujesz sobie puste komórki i odpowiadające im komórki do czyszczenia

[croppz]

@OrzelKaskader:

For r = 5 To 14
 If Cells(r, 3) = "" Then
 Range(Cells(r, 5), Cells(r, 7)) = ""
 End If
Next r

[patatier]

@croppz właśnie tak. Tylko zamiast "" dałbym vbnullstring

[croppz]

@patatier: przy paru linijkach różnica w wydajności żadna, a mniej pisania ¯\_(ツ)_/¯

Jak już się czepiamy to raczej bym tam dodał do range i cells odwołania do konkretnego arkusza, bo teraz to się będzie zawsze wykonywało na tym aktywnym.

[patatier]

@croppz a jasne. Tylko taki mój nawyk.