makro

[isa hoca]

Makro ile ilgili bir konuda yardımınızı rica ediyorum.
a11:a22 arasındaki dolu hücreleri d11 den itibaren alt alta yapıştırmak istiyorum. saygılar..

 

[suleyman242]

Private Sub CommandButton1_Click()
SS = 11
For i = 11 To 22
If Cells(i, "A").Value <> "" Then
Cells(SS, "D").Value = Cells(i, "A").Value
SS = SS + 1
End If
Next
End Sub

Makro ile ilgili bir konuda yardımınızı rica ediyorum.
a11:a22 arasındaki dolu hücreleri d11 den itibaren alt alta yapıştırmak istiyorum. saygılar..