Taşı ve Birleştir

[steppe]

Veri taşıma

Private Sub CommandButton1_Click()
satır = 0
For Each Hücre In Range("B1:B200")
If Hücre <> "" Then satır = satır + 1
If Hücre = "" Then GoTo devam:
Cells(satır, 1) = Hücre
devam:
Next
End Sub
----------------------------------
koduyla
B1,B3,B5 teki hücreleri soldaki birleştirilmiş hücrelere kopyalayabiliyorum.İstediğim ise B1,B3,B5 teki hücreleri soldaki birleştirilmiş hücrelere taşımak(yani B1,B3,B5'teki Hakan,Nuran ve Nuri silinecek)aynı zamanda B1,B2 ile B3,B4 ile B5,B6 ile birleştirilerek kalan birleştirilmiş hücrelerde yani B1'de Ankara,B3'te İstanbul ve B5'te İzmir verileri kalacak.Yardımlarınız için şimdiden teşekkürler.

 

[steppe]

veri taşıma

Private Sub CommandButton1_Click()
satır = 0
For Each Hücre In Range("B1:B200")
If Hücre <> "" Then satır = satır + 1
If Hücre = "" Then GoTo devam:
Cells(satır, 1) = Hücre
devam:
Next
End Sub
----------------------------------
koduyla
B1,B3,B5 teki hücreleri soldaki birleştirilmiş hücrelere kopyalayabiliyorum.İstediğim ise B1,B3,B5 teki hücreleri soldaki birleştirilmiş hücrelere taşımak(kes-yapıştır yapmak).Yardımlarınız için şimdiden teşekkürler.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Private Sub CommandButton1_Click()
For a = 1 To [b65536].End(3).Row Step 2
Cells(a, "a") = Cells(a, "b")
Cells(a, "b") = ""
Range("B" & a & ":B" & a + 1).Merge
Next
End Sub