iki hücreyi birleştirme

[erdenek]

Arkadaşlar ekteki dosyada sayfa-2 yer alan bilgilerin sayfa-1 ilgili yere aktarılmasını nasıl yaparız?

 

[Emir Hüseyin Çoban]

. . .

Sayfa1 şablonu her zaman 50 lik listemi olacak ve
Sayfa2 deki liste bu şablona oturacak sayıda mı olacak.
Öyle ise aşağıdaki kodları deneyiniz.

Sub kod()
Application.ScreenUpdating = False

son = Sayfa2.[A65536].End(3).Row
satC = 7
satK = 7

Sayfa1.Range("C7:D31").ClearContents
Sayfa1.Range("K7:L31").ClearContents


For i = 2 To son
If satC <= 31 Then
Sayfa1.Cells(satC, "C") = Sayfa2.Cells(i, "A") & Chr(10) & Sayfa2.Cells(i, "B")
satC = satC + 1
Else
Sayfa1.Cells(satK, "K") = Sayfa2.Cells(i, "A") & Chr(10) & Sayfa2.Cells(i, "B")
satK = satK + 1
End If
Next i

Application.ScreenUpdating = True
MsgBox " B i t t i "
End Sub

. . .

 

[erdenek]

hüseyin bey sayfa 1 50 kişilk sabit sınıf sınıf yapılacağı için.

 

[erdenek]

sayfa-2 deki sayı farklı olacak bazı şubeler 37 bazı şubeler 38 ama sayfa-1 şablonu aynı.

 

[Emir Hüseyin Çoban]

. . .

Sayfa2, 50 yi aşmadığı sürece sorun olmaz, denediniz mi ?

. . .

 

[erdenek]

Denedim hocam ellerinize sağlık.çok sağolun