[]
excel-vba dolu hücreleri seçmek
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
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
(30.12.17 20:45:57)
1
