VBA Create Object adodb yardımı

[Mehmet Sait]

Merhaba,

Daha önce buradan edindiğim ve amacıma uygun olarak kullandığım ekli kodu farklı bir amaç için kullanmak istiyorum ama yapamadım.
Sorguda kod kısmı var ama tablomda kod kısmı yok. Kod kısmı olmadan ekli kodda nasıl bir düznleme yapmam gerek ?
Yardımlarınız için teşekkür ederim.

Private Sub Workbook_Open()

Application.Calculation = xlCalculationAutomatic


 Dim ws As Worksheet
    Application.ScreenUpdating = False
    For Each ws In ActiveWorkbook.Worksheets
        ws.Activate
        ActiveWindow.Zoom = 80
    Next
    Application.ScreenUpdating = True

Sheets("Kontrol").Select
Range("C3").Select
ActiveSheet.Unprotect Password:="3"

Sheets("Kontrol").Range("C9:E10000").ClearContents
Sheets("Kontrol").Range("H9:I10000").ClearContents

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 Kod, [Hammadde Adı],[Miktarı] from[Stok$B7:C10000] where Miktarı < 0 and kod is not null "
Set rs = con.Execute(sorgu)

Sheets("Kontrol").Range("C9").CopyFromRecordset rs

ActiveSheet.Protect Password:="3"


End Sub

 

[YUSUF44]

Eğer stok sayfasından hammadde adı ve miktarı sütunlarının miktarı negatif olanları almak istiyorsanız aşağıdaki gibi deneyin:


sorgu = "select [Hammadde Adı],[Miktarı] from[Stok$B7:C10000] where Miktarı < 0 "

B:C sütunlarından veri aldığınıza göre bu sütunların biri hammadde adı diğeri de miktarıdır. Bu durumda aşağıdaki gibi de olabilir:

sorgu = "select * from[Stok$B7:C10000] where Miktarı < 0 "

 

[Haluk]

sorgu = "Select [Hammadde Adı],[Miktarı] From [Stok$B3:F] Where [Miktarı] < 0 "

.

 

[Mehmet Sait]

Eğer stok sayfasından hammadde adı ve miktarı sütunlarının miktarı negatif olanları almak istiyorsanız aşağıdaki gibi deneyin:


sorgu = "select [Hammadde Adı],[Miktarı] from[Stok$B7:C10000] where Miktarı < 0 "

B:C sütunlarından veri aldığınıza göre bu sütunların biri hammadde adı diğeri de miktarıdır. Bu durumda aşağıdaki gibi de olabilir:

sorgu = "select * from[Stok$B7:C10000] where Miktarı < 0 "

Teşekkür ederim. Denedim ancak hata verdi.

 

[Mehmet Sait]

sorgu = "Select [Hammadde Adı],[Miktarı] From [Stok$B3:F] Where [Miktarı] < 0 "

.

Teşekkür eerim. Denedim tam istediğim gibi çalıştı.