Veri Aktarma

[selim_1]

Arkadaşlar ekteki dosyamda veri aktarımı ile ilgili bir sorunum var yardımcı olursanız sevinirim.
Sitede arama yaptım ama benzer bir dosya bulamadım.

 

[Orion1]

Dosyanız ekte.

Sub aktar()
Dim hcr As Range, sat As Long
Sheets("Rapor").Select
Application.ScreenUpdating = False
Range("A8:C65536").ClearContents
sat = 8
If Sheets("Rapor").ComboBox1.Value = "" Then
    MsgBox "Comboboxa bir sıra no giriniz.!!", vbCritical, "UYARI"
    Exit Sub
End If
For Each hcr In Sheets("IADE").Range("A2:A" & Sheets("IADE").Cells(65536, "A").End(xlUp).Row)
    If CStr(hcr.Value) = CStr(Sheets("Rapor").ComboBox1.Value) Then
        Cells(sat, "A").Value = hcr.Offset(0, 12).Value
        Cells(sat, "B").Value = hcr.Offset(0, 14).Value
        Cells(sat, "C").Value = hcr.Offset(0, 13).Value
        sat = sat + 1
    End If
Next
Application.ScreenUpdating = True
MsgBox "İşlem Tamam"
End Sub

 

[selim_1]

Teşekkürler arkadaşlar

 

[buseen]

Selam Evren hocamın makrosu iade sayfası degilde 200 yakın sayfam var müsteriye ait onun bilgilerini nasıl rapor alabilirim ?

 

[Orion1]

Selam Evren hocamın makrosu iade sayfası degilde 200 yakın sayfam var müsteriye ait onun bilgilerini nasıl rapor alabilirim ?

Bu durumda şöyle bir terslik olur.
Diyiyelim her sayfada 330 satır olsun bu duurmda 330*200 = 66000 satır yapar.
2003 ve alt versiyonlarda 65536 satır olduğundan taşma olur ve hatalı olur sonuç.Artan satır devamlı 1nci satıra yazacaktır.