Excel 2 farklı sheet den veri çekme

[dmyksl]

Arkadaşlar Excelde 1 anasayfam var 2 tane de sayfa1 ve sayfa2 şeklinde sheet var
amacım 40 kişilik bir liste oluşturmak ve veriyi 1 sayfa1 den 1 de sayfa 2 den olacak şekilde 20 20 almak ... desteklerinizi bekliyorum...

 

[Emir Hüseyin Çoban]

. . .

Örnek dosya yüklerseniz hangi hücreden hangi veri alınacak kısmı daha anlaşılır olur.

. . .

 

[dmyksl]

. . .

Örnek dosya yüklerseniz hangi hücreden hangi veri alınacak kısmı daha anlaşılır olur.

. . .

Hocam örnek ekledim. sayfa 1 e sayfa2 den ve sayfa 3 den sırayla 1 er veri alacak. yani sayfa 1 de 1 satır a 1 satır b olacak...

 

[Emir Hüseyin Çoban]

Örneğin sayfa3 deki liste daha az
Sayfa3 de aktarılacak bitince kalan için sayfa2 den mi devam edecek

.

 

[dmyksl]

hocam onu örnek olarak attım 2000 kayıt var yaklaşık

 

[Emir Hüseyin Çoban]

Sayfa2 ve sayfa3 satır sayısı her zaman eşit mi.

.

 

[dmyksl]

Sayfa2 ve sayfa3 satır sayısı her zaman eşit mi.

.

değil hocam kalanı manuel yaparım heralde

 

[Emir Hüseyin Çoban]

. . .

Dosyanız ektedir.

Sub kod()
Application.ScreenUpdating = False
Dim S1 As Worksheet: Set S1 = Sheets("Sayfa1")
Dim S2 As Worksheet: Set S2 = Sheets("Sayfa2")
Dim S3 As Worksheet: Set S3 = Sheets("Sayfa3")

iki = S2.Cells(Rows.Count, "B").End(3).Row
uc = S3.Cells(Rows.Count, "B").End(3).Row

If iki < uc Then
mesaj = "Sayfa2 " & iki & ". satıra kadar işlem tamamlanmıştır."
Else
mesaj = "Sayfa3 " & uc & ". satıra kadar işlem tamamlanmıştır."
End If

son = WorksheetFunction.Min(iki, uc)
sat = 2

S1.Range("B2:C" & Rows.Count).ClearContents

For i = 2 To son Step 1
S1.Cells(sat, "B") = S2.Cells(i, "B")
S1.Cells(sat, "C") = S2.Cells(i, "C")

S1.Cells(sat + 1, "B") = S3.Cells(i, "B")
S1.Cells(sat + 1, "C") = S3.Cells(i, "C")

sat = sat + 2
Next i

Application.ScreenUpdating = True
MsgBox mesaj
End Sub

. . .

 

[dmyksl]

. . .

Dosyanız ektedir.

Sub kod()
Application.ScreenUpdating = False
Dim S1 As Worksheet: Set S1 = Sheets("Sayfa1")
Dim S2 As Worksheet: Set S2 = Sheets("Sayfa2")
Dim S3 As Worksheet: Set S3 = Sheets("Sayfa3")

iki = S2.Cells(Rows.Count, "B").End(3).Row
uc = S3.Cells(Rows.Count, "B").End(3).Row

If iki < uc Then
mesaj = "Sayfa2 " & iki & ". satıra kadar işlem tamamlanmıştır."
Else
mesaj = "Sayfa3 " & uc & ". satıra kadar işlem tamamlanmıştır."
End If

son = WorksheetFunction.Min(iki, uc)
sat = 2

S1.Range("B2:C" & Rows.Count).ClearContents

For i = 2 To son Step 1
S1.Cells(sat, "B") = S2.Cells(i, "B")
S1.Cells(sat, "C") = S2.Cells(i, "C")

S1.Cells(sat + 1, "B") = S3.Cells(i, "B")
S1.Cells(sat + 1, "C") = S3.Cells(i, "C")

sat = sat + 2
Next i

Application.ScreenUpdating = True
MsgBox mesaj
End Sub

. . .

hocam teşekkür ederim dediğim oldu. birde şunu yapabilirmiyiz hocam... bu şekilde ana listem 1080 kişi oldu bunu her sayfada 40 kişi olacak şekilde 27 farklı sayfaya aynı anda atabilirmiyiz.(sayfa 1 1-40 sayfa2 41-80) tşk

 

[Emir Hüseyin Çoban]

. . .

Yeni açılan sayfalarda sıra numarası 1-40 arasında mı olacak yoksa
41-42 diye devam mı edecek.

. . .