Soru Mizandan veri çekerken iki sütün da hata!

[Filose]

Merhaba,
Küçük bir makro dosyası var bir çok işte kullanıyorum ancak, MİZAN dosyasından sadece 120 hesapları KONTROL dosyasına çekerken G ve H sütunlarında hata alıyorum. Yardımcı olacak arkadaşlara şimdiden teşekkür ediyorum.

Saygılar,

 

[Korhan Ayhan]

Deneyiniz.

Sub aktar()
    Dim conn As Object, rs As Object, sat As Long
    
    Range("B5:H45").ClearContents
    
    Set conn = CreateObject("adodb.Connection")
    Set rs = CreateObject("adodb.Recordset")
    
    conn.Open "Provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & _
            "\mizan.xls;extended properties=""excel 12.0;hdr=No"""
    
    rs.Open "select F1,F2,'',F5,F6,F7,F8 from [Sheet1$A6:H] Where F1 Like '120%'", conn, 1, 1
    
    Range("B5").CopyFromRecordset rs

    rs.Close: conn.Close
    Set rs = Nothing: Set conn = Nothing
    
    MsgBox "işlem tamam." & vbLf & "A. Üçüncü"
End Sub

 

[Filose]

Korhan bey çok teşekkür ediyorum.

Aktarmada sorun yok ancak aktarılan sütunlar toplandığında sütun toplamları tutmuyor. (G ve H Sütunları) Yani bazı hücreleri sayısal olarak görmüyor.
Bu arada tek başına olan 120 hesabı almasına gerek yok. Sadece bu hesabın altındakilerini yani 120.001 ..... alsın yeter.

Saygılar sunuyorum.

 

[Korhan Ayhan]

Sorgu satırındaki '120%'" bölümüne aşağıdaki gibi nokta ekleyip deneyiniz.

'120.%'"

 

[Filose]

Korhan bey merhaba,

120’li hesap tamam düzgün elinize sağlık. Ancak G ve H sütunları aktarıldığında sayısal görülmediğinden toplanmıyor. Sayısal tanımladığımda da olmuyor.

Herşey için teşekkür ediyorum. Sağlık ve huzurla kalın.

 

[veyselemre]

select F1,F2,'',F5*1,F6*1,F7*1,F8*1 .......
olarak deneyin

 

[Filose]

Veysel bey dediğiniz gibi düzeldi sorun yok. Çok teşekkür ederim. Herkese saygılarımı sunuyorum ellerinize sağlık.