Sadece Tutar Yazılan Satırları, Yandaki Tabloya Kopyalamak

[mdagistanli]

Merhaba.
Ekteki dosyada; Aktar düğmesinin fonksiyonunu, sadece C sütunu dolu olan satırları, yandaki tabloya kopyalayacak şekilde ayarlamak mümkün müdür?

Sub Makro4()
'
' Makro4 Makro
'

'
    Range("A2:E16").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=81
    Range("G101").Select
    Selection.End(xlUp).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
            Range("C2:c16").Select
    Application.CutCopyMode = False
    Selection.ClearContents
End Sub

 

[YUSUF44]

Aşağıdaki makroyu deneyiniz:

Sub aktar()
son = Cells(Rows.Count, "A").End(3).Row
    Set s1 = Sheets("Sayfa1")
    son = WorksheetFunction.Max(2, s1.Cells(Rows.Count, "A").End(3).Row)
    
    Set con = VBA.CreateObject("adodb.Connection")
    con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
    ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=yes"""
    
    sorgu = "select * from [Sayfa1$A1:E" & son & "] where Toplam is not null"
    Set rs = con.Execute(sorgu)
    Set bul = Range("G:G").Find("")
    bul.CopyFromRecordset rs

MsgBox "İşlem tamamlandı.", vbInformation
End Sub

 

[mdagistanli]

Maalesef; Run-time error ',2147217904 (80040e10): Gerekli bir veya daha fazla parametre için girilen değer yok.
Burada takılıyor: Set rs = con.Execute(sorgu)

Aşağıdaki makroyu deneyiniz:

 

[YUSUF44]

Ben deneyip göndermiştim ve örnek dosyanızda sıkıntı olmamıştı. Muhtemelen örnek dosyanızla asıl dosyanız aynı yapıda değil ya da kodları asıl dosyanıza uyarlarken hata yaptınız.

Dosyanızı makrolu haliyle paylaşırsanız iyi olur.

 

[mdagistanli]

Makro eklenmiş hali.

 

[Necdet]

Merhaba,
Yusuf beyin kodlarını kullanabilmek için Referanslardan Microsoft ActiveX Data Objects Recordsetsi 6.0 Library en büyük değerini seçmelisiniz.

 

[mdagistanli]

Merhaba,
Yusuf beyin kodlarını kullanabilmek için Referanslardan Microsoft ActiveX Data Objects Recordsetsi 6.0 Library en büyük değerini seçmelisiniz.

Evdeki PC'de çalıştı ve Microsoft ActiveX Data Objects Recordsets 2.8 ile 6.0 satırları var, seçili değil.
Teşekkür ederim.