DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub LİSTELE()
Columns(3).ClearContents
Satır = 2
For X = 2 To [A65536].End(3).Row
If Cells(X, 1) <> "" And Cells(X, 2) <> "" Then
Range(Cells(Satır, 3), Cells(Satır - 1 + Cells(X, 2), 3)) = Cells(X, 1)
Satır = [C65536].End(3).Offset(1).Row
End If
Next
MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation
End Sub