Sayfaları Konsolide etme

[esolen]

1 Sayfanın 1 sırasını (sayfadaki toplam sıra sayısı 10.000 )
3. sayfanın 1. sırasına
2. sayfanın 1. sırasını (sayfadaki toplam sıra sayısı 10.000 )
3 sayfanın 2. sırasına
getire bilirmiyız (Aynı renkte gelemsi işimizi kolaylaştırır)

3 sayfada toplam 20 000 satır olacak
örnek dosya ektedir.

 

[esolen]

Ayrıca sıkıştırılmış olarakda gönderiyorum

 

[veyselemre]

Sub aktar()
Sheets("konsolide").Range("2:65536").Delete
son = Sheets("Borç").[a65536].End(3).Row 'iki sheet te aynı sayıda olduğu düşünüldü
c = 1
For x = 2 To son
c = c + 2
For t = 1 To 2
Sheets("Konsolide").Cells(c - 1, t) = Sheets("Borç").Cells(x, t)
Sheets("Konsolide").Cells(c, t) = Sheets("Alacak").Cells(x, t)
Range("a" & c - 1 & ":c" & c - 1).Interior.ColorIndex = 36
Range("a" & c & ":c" & c).Interior.ColorIndex = 35
Next t
Next x
End Sub

 

[esolen]

veyselemre
dosya olarka atabilirmisin
kodlamaları nereye yazacağımı bilmiyorum.

 

[isakarakus]

merhaba
alt+f11 tuşuna basın,
editörden project bölümünde farenin sağına basarak bir modul ekleyin,
açılan pencereye bu kodu yapıştırın.
f5 tuşuna basarak çalıştırın,
veya
kodların nasıl ve nereye yazıldığını ayrıntılı olarak öğrenmek isterseniz dershadedeki konulara bir göz atın.

 

[esolen]

Güzel oldu ancak
c sutunu veya d sutunları nı da ilave edemezmiyiz

 

[ALPEN]

Güzel oldu ancak
c sutunu veya d sutunları nı da ilave edemezmiyiz

Sayın veyselemrenin kodunda

[vb:1:28ab7f0e03]For t = 1 To 2[/vb:1:28ab7f0e03]

Satırı

1. sütündan 2. sütuna kadar (A ve B) alınmasını söyler.

Eğer o satırı
[vb:1:28ab7f0e03]For t = 1 To 3[/vb:1:28ab7f0e03]

yaparsanız
1. sütündan 3. sütuna kadar (A, B ve C) alınmasını söyler.

yani A, B, C, D sütunlarını almak için

[vb:1:28ab7f0e03]For t = 1 To 4[/vb:1:28ab7f0e03]

olarak değiştirmek yeterli olur.

 

[esolen]

Teşekürler