Hedef arayan Makro Döngü boşlukları atlar

Question

VBA için çok yeni. Denemeler yaparak ve forumları okuyarak öğrenmeye çalışıyorum ama ben bir kayıp yaşıyorum. Bu benim forumları az ya da çok üstünde buldum ve o iyi rasgele sayılar ile bir sütun için çalışıyor budur

Sub Macro() 

Dim i As Long 
    For i = 1 To 100 
     ActiveCell.Offset(1, 0).Select 
     ActiveCell.GoalSeek Goal:=1, ChangingCell:=ActiveCell.Offset(0, -3) 
    Next i 
End Sub 

. Ama boş hücreleri atlamak için ihtiyacım var. Alternatif olarak, sadece makroyu görünür hücrelere (filtrelenirken) uygulamanız gerekir.

Bu soruya cevap buldum, ancak onları koduma nasıl ekleyeceğimi bilmiyorum.

Answer 1

Sub Macro() 

Dim i As Long 
    For i = 1 To 100 
     If ActiveCell.Value = "" then GoTo here 
     ActiveCell.Offset(1, 0).Select 
     ActiveCell.GoalSeek Goal:=1, ChangingCell:=ActiveCell.Offset(0, -3) 
here: 
    Next i 
End Sub 

bu Bu çalıştı