Satır Etiketindeki Veriler Diğer Dosyada Hangi Aylarda Bulunuyor

[stier_22]

Üstatlar selamlar,

Elimde, Satır etiketi ve satış listesi olarak 2 ayrı dosya var . İstediğim Satır etiketinde yer alan ve satır etiketi başlıklı numaraların, satış listesinde hangi aylarda olduğunu bana versin. Bazı numaralar birden fazla ayda olduğu için bunları yan yana aynı hücre içinde göstersin istiyorum.

Listem çok uzun olduğu için ben eşleşenlerden bir örnek hazırladım

Örnek dosyam ektedir. Şimdiden teşekkürler.

 

[Erdem Akdemir]

Merhaba,

Aşağıdaki kodu deneyiniz.

Sub kapalii()

Range("A2:C" & Rows.Count).ClearContents

yol = ThisWorkbook.Path & "\" & "SATILAN KİTAP.xlsx"

Set con = VBA.CreateObject("adodb.Connection")

con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
yol & ";extended properties=""Excel 12.0;hdr=yes"""

sorgu = "select [MALZEME KODU],format([FATURA TARİHİ],'m')*1,[FATURA TARİHİ] from[Sayfa1$] " & _
        "group by [MALZEME KODU],[FATURA TARİHİ]"
        
Set rs = con.Execute(sorgu)
      
Range("A2").CopyFromRecordset rs

Range("A:B").NumberFormat = "0"

Cells.EntireColumn.AutoFit

Set con = Nothing
Set rs = Nothing

End Sub

 

[stier_22]

Merhaba,

Aşağıdaki kodu deneyiniz.

Sub kapalii()

Range("A2:C" & Rows.Count).ClearContents

yol = ThisWorkbook.Path & "\" & "SATILAN KİTAP.xlsx"

Set con = VBA.CreateObject("adodb.Connection")

con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
yol & ";extended properties=""Excel 12.0;hdr=yes"""

sorgu = "select [MALZEME KODU],format([FATURA TARİHİ],'m')*1,[FATURA TARİHİ] from[Sayfa1$] " & _
        "group by [MALZEME KODU],[FATURA TARİHİ]"
       
Set rs = con.Execute(sorgu)
     
Range("A2").CopyFromRecordset rs

Range("A:B").NumberFormat = "0"

Cells.EntireColumn.AutoFit

Set con = Nothing
Set rs = Nothing

End Sub

merhaba üstat bunu nereye kopyalayacağım hangi dosyaya makro kaydet dedim ama hata verdi

 

[stier_22]

Şuan denedim bu seferde tarihleri v numaraları siliyor makro çalıştır dedikten sonra bir yerde hata yapmış olabilirim.

 

[Erdem Akdemir]

Makroları satır etiket dosyasında calistirin.

 

[stier_22]

Makroları satır etiket dosyasında calistirin.

Merhaba üstat sizin dediğiniz makroyu yaptım ama benim istediğim tam olarak bu şekilde değildi ben aynı malzeme kodu olan ama farklı tarihlerde olan verilerin aylarını aynı hücre içine olmazsa yan hücreye yazmasını istiyorum örnek bir dosya eklediM istediğim tam olarak bu şekilde.
Pivot tablo yaptım sizin formülden sonra ama ayları aşağı değil de yan yana hatta mümkünse aynı hücre içine yazmasını istiyorum.

 

[Erdem Akdemir]

İlk istediğinizle şimdi istediğiniz arasında dağlar kadar fark var.

 

[stier_22]

İlk istediğinizle şimdi istediğiniz arasında dağlar kadar fark var.

Üstat ilk mesajımda da belirtmiştim "Bazı numaralar birden fazla ayda olduğu için bunları yan yana aynı hücre içinde göstersin istiyorum." diyerek
Aşağı yönde verince liste çok uzuyor bu nedenle olabilirse yan yana vermesi işimi kolaylaştıracak.