Merge edilmiş datalarda transfer işlemi

[ecalhan]

Merhaba örnektede göreceğiniz gibi 2 sayfam ve data sayafasındaki merge edilmiş hücre içerisindeki datayı diğer tarafa otomatik olarak aktarmak istiyorum. Tek satır olunca sorun yok ama nedense merge edilenlerde bu başarılı olmadı.

 

[snx111]

Private Sub CommandButton1_Click()
Sayfa1.Range("b2") = Sayfa2.Range("d2")
End Sub

 

[uzmanamele]

Merhaba

Bu kod işinizi görür mü?

Sub mergeaktar()
Set s1 = Sheets("data")
Set s2 = Sheets("summary")
x = 1
For i = 1 To s1.Range("a65536").End(3).Row
If s1.Cells(i, "a") <> "" Then
s2.Cells(x, "a") = s1.Cells(i, "a")
s2.Cells(x, "b") = s1.Cells(i, "d")
x = x + 1
End If
Next
End Sub

 

[ecalhan]

Kod ekrana bir şey getirmedi

 

[snx111]

biraz ısınsın getirir ..

 

[Necdet]

Merhaba,

Süleyman bey'in kodlarını denedim, çalışıyor.

 

[ecalhan]

Haklısınız ısınınca geldı. Suleyman beye teşekkürler