Makroya tarih filtresi nasıl eklerim?

[LORINSER]

Makroyu çalıştırdığımda dışveri kaynağından veriyi çekmekteyim. Herhangi bir hücreye tarih yazsam çekilen veriyi o tarihin verisi olarak çekebilirmiyim? Normalde sorgulama yaparken tarihi manuel değiştiriyordum. Makro kullanarak veri çektiğimde tarih aynı cıkıyor. Yukarıda belirtiğim şekilde tarihi değiştirmek istiyorum. Yardımlarınız için şimdiden teşekkürler.

 

[Necdet]

Merhaba,

Aşağıdaki gibi dener misiniz?

Tarihin Aynı sayfada Z1 hücresine yazılı olduğu varsayılmıştır. İki tarih arası isterseniz aynı mantıkla ve araya AND koyarak devam edebilirsiniz.

Sub alımlar_gunluk()
'
' alımlar_gunluk Makro
'
    [COLOR=red]Dim Tarih   As String[/COLOR]
[COLOR=red]   Tarih = Year([Z1]) & "-" & Format(Month([Z1]), "00") & "-" & Format(Day([Z1]), "00")[/COLOR]
    
'
    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
        "ODBC;DSN=Autoline ODBC;UID=fisse-15;;SERVER=172.16.9.17,790;DBNAME=birollar;LUID=fisse-15;" _
        , Destination:=Range("$A$1")).QueryTable
        .CommandText = Array( _
        "SELECT PC_10_PurchaseTransactions.GoodsReceivedNo, PC_10_PurchaseTransactions.GRNDate, PC_10_PurchaseTransactions.PartNumber, PC_10_PurchaseTransactions.BINLocation, SM_10_StockFile.BinLocation001, PC" _
        , _
        "_10_PurchaseTransactions.QuantityReceived, SM_10_StockFile.TotalStockQuantity, PC_10_PurchaseTransactions.ProgressStatus, PC_10_PurchaseTransactions.SupplierCode, PC_10_PurchaseTransactions.OrderType," _
        , _
        " PC_10_PurchaseTransactions.CreatingOperator" & Chr(13) & "" & Chr(10) & "FROM PC_10_PurchaseTransactions PC_10_PurchaseTransactions, SM_10_StockFile SM_10_StockFile" & Chr(13) & "" & Chr(10) & "WHERE PC_10_PurchaseTransactions.PartNumberPacked = SM_10_Sto" _
        , _
        "ckFile.PartNumberPacked AND ((PC_10_PurchaseTransactions.GRNDate={d '" & [B][COLOR=red]Tarih[/COLOR][/B] & "'}) AND (PC_10_PurchaseTransactions.ProgressStatus='R'))" & Chr(13) & "" & Chr(10) & "ORDER BY PC_10_PurchaseTransactions.PartNumber" _
        )
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .ListObject.DisplayName = "Tablo_irsaliye_gunluk_girişler_1"
        .Refresh BackgroundQuery:=False
    End With
End Sub

 

[LORINSER]

Hocam teşekkürler. Tam istediğim gibi oldu. Elinize kolunuza sağlık

 

[Necdet]

Hocam teşekkürler. Tam istediğim gibi oldu. Elinize kolunuza sağlık

Güle güle kullanınız.

 

[LORINSER]

Tekrar merhaba hocam
Hergünün verisini 1 sayfaya çekmem gerekiyor. Aynı makroyu farklı sheet'te çalıştırınca hata veriyor. Sebebi ne olabilir acaba ?

 

[LORINSER]

Ustadlar acil yardım lütfen !!!

 

[LORINSER]

Lütfenn :yardim:

 

[Necdet]

Merhaba,

Hata veriyor demek ne demek? Bu hatanın bir kodu vesariyesi yok mu?

 

[LORINSER]

Debug ektedir.