1. sayfada b2:b655 arasında bulunan dolu hücreleri kopyalayıp 2. sayfaya transpose olarak nasıl kopyalatabiliriz
sub kablelvuku()
k = 1
For i = 2 to 655
If Sheets(1).Cells(i,2) <> "" Then
Sheets(2).cells(1,k) = Sheets(1).cells(i,2)
k = k + 1
End IF
Next i
End Sub
cakabo
1