değere göre veri aktarımı

[sevindi2002]

Merhaba Arkadaşlar,
Ekteti örnek dosyada görülebimeceği gibi
C sütunundaki değerleri 2. sayfanın c sütununa, d sütunundaki sayı kadar alt alta yazdırmak istiyorum. Yardımcı olursanız seviririm.

 

[asi_kral]

Merhaba Arkadaşlar,
Ekteti örnek dosyada görülebimeceği gibi
C sütunundaki değerleri 2. sayfanın c sütununa, d sütunundaki sayı kadar alt alta yazdırmak istiyorum. Yardımcı olursanız seviririm.

Merhaba

Boş bir module kopyalayın ve deneyin.

----------------------------------------------

Option Explicit
Sub çoğalt_1967()
'Konu :Sandık Kadar Mahalle Yazdırma
'Coder By: asi_kral_1967
Dim asi, kral
Dim a, b, c
Application.ScreenUpdating = False
Set asi = Sheets("Sayfa1"): Set kral = Sheets("Sayfa2")
kral.Range("C:C").ClearContents
c = 3
For a = 4 To asi.Cells(Rows.Count, "C").End(xlUp).Row
For b = 1 To asi.Cells(a, "D")
kral.Cells(c, "C") = asi.Cells(a, "C")
c = c + 1
Next
Next
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı", vbInformation, "asi_kral_1967"
End Sub

----------------------------------------

Dosyanız ekte

 

[sevindi2002]

Teşekkürler sayın asi_kral_1967
Siz insanlara yardımcı oluyorsunuz, Allah sizlerin yardımcısı olur inşallah.
BU FORUM KADAR GÜZEL İŞLER YAPAN BAŞKA BİR FORUMA RASTLAMADIM.
SAĞOLUN

 

[asi_kral]

Teşekkürler sayın asi_kral_1967
Siz insanlara yardımcı oluyorsunuz, Allah sizlerin yardımcısı olur inşallah.
BU FORUM KADAR GÜZEL İŞLER YAPAN BAŞKA BİR FORUMA RASTLAMADIM.
SAĞOLUN

Kolay Gelsin