sadece dolu sütunda işlem yapmak

[SELEX]

Dosyadaki makroda değişiklik gerekmektedir.
Örnek dosya ekte sunulmuştur.
İlgilenenlere teşekkür ederim.

Sayfa2 de B1:E1 aralığında hangi hücrenin dolu olduğunu bulmasını ve aşağıdaki kodun sadece o sütunda belirli satır sayısında (örneğin 100 satır) çalışmasını istiyorum.
Makronun aşağıdaki mevcut halinde kod sadece D210 aralığında çalışmaktadır.
= = =
Dim Alan As Range
For Each Alan In Range("D210")
Alan.Select
DoEvents
SendKeys "{F2}", True
SendKeys "{ENTER}", True
Next

 

[Korhan Ayhan]

Aşağıdaki gibi deneyiniz.

Sub MAKRO()
    Dim Alan As Range, X As Byte
    
    Sheets("Sayfa1").Range("D2:D10").Copy
    Sheets("Sayfa2").Select
    Range("D2").PasteSpecial Paste:=xlPasteValues
    
    For X = 2 To 5
        If WorksheetFunction.CountA(Range(Cells(2, X), Cells(Rows.Count, X))) > 0 Then
            For Each Alan In Range(Cells(2, X), Cells(100, X))
                Alan.Select
                DoEvents
                SendKeys "{F2}", True
                SendKeys "{ENTER}", True
            Next
        End If
    Next
End Sub

 

[SELEX]

Sayın Korhan Ayhan, desteğiniz ve hızlı cevabınız için teşekkür ederim.