A sütunundaki aynı değerleri öbür sayfada süzüp diğer iki sütundaki toplamlarını ve

[ertmer]

yardım edenlerin şimdiden ellerine sağlık teşekkürler

 

[Murat OSMA]

Yapmak istediğinizi mesajınızın içinde de belirtebilirseniz, benim gibi cep telefonundan bağlanan kişiler de dosyanızı açmaya gerek duymadan size yardımcı olabilirler.

 

[ertmer]

murat hocam a sütunun daki verileri teke düşürüp h sütunudaki ve ı sütunudaki karşılıklarını toplayıp 2. sayfaya aktarması ve g stünüdaki firmaların örneğin x medikalin y medikalin…… toplam alacaklarını ayrı bir sütüna yadırabilirmiyiz. mevcut makroda sadece a sütunudaki verilerin b de ki karşılıklarını topluyorum işimi bayağı uztıyor. emek verenlerin şimdiden ellerine sağlık

 

[Murat OSMA]

Mesajınızın tamamını büyük harfle yazmamaya özen gösterin. Bu konu önemlidir...

Sub Özetle()
    Dim Rky As Object, rs As Object
    Set Rky = CreateObject("adodb.connection")
    Set rs = CreateObject("adodb.recordset")
    Rky.Open "provideR=microsoft.ace.oledb.12.0;data source=" & _
    ThisWorkbook.FullName & ";extended properties=""excel 12.0;hdr=no"""
    sorgu = "SELECT f1, f2, sum(f8),SUM(f9) from [tdms listesi$] group by f1,f2"
    rs.Open sorgu, Rky
    Sayfa2.Range("A1").CopyFromRecordset rs
    Sayfa2.Range("A1:D1").Delete Shift:=xlUp
    rs.Close: Rky.Close
End Sub

 

[ertmer]

verdiğiniz kodları girdiğimde variable not define yazıyor ve kodlardaki sorgu= sarı renk oluyor
çalıştıramadım acaba benmi hata yapıyorum açıklarsanız sevinirm

 

[ertmer]

kodları kendim uyarlayamadım yardımcı olursanız çok sevinirim

 

[Murat OSMA]

Kodlarinizin başında option explicit yazıyor olmalı o satiri silerseniz vermeyecektir.

 

[ertmer]

hocam haklıymışınız denedim oldu çok teşekkür ediyorum iyi çalışmalar diliyorum

 

[Murat OSMA]

Rica ederim, iyi akşamlar.