Çözüldü Veri Tabanı

MESKO

Yeni Üye
Üye
Katılım
2 Eki 2018
Mesajlar
29
Tepki puanı
17
Puanları
3
Excel Versiyonu, Dili
Bilinmiyor
Arkadaşlar merhaba;

TAHSİLAT makrosundaki kodları verileri C:\CARI\DATA TAHSİLAT\TAHSİLAT.xls konumundan çekmesi için yapmamız gerekenler hususunda yardımcı olabilirmisiniz.

Saygılar.
 

Ekli dosyalar

MESKO

Yeni Üye
Üye
Katılım
2 Eki 2018
Mesajlar
29
Tepki puanı
17
Puanları
3
Excel Versiyonu, Dili
Bilinmiyor
@MESKO dosyanız ektedir. İyi Çalışmalar.
Metehan bey;

Elinize sağlık çok güzel olmuş. Şöyle bir revize yapabilirmiyiz.
Z4 hüçresine -400 geliyor yani TAHSİLAT dosyasından D20'yi getiriyor. Benim istediğim D19 ile D20 yi toplayıp raporlaması yani; 977,76+400 = 1377,76 yı toplam olarak getirmesi.

Kod:
If rs("AÇIKLAMA-Ş").Value = Cells(i, 3).Value Then
Cells(i, 26) = rs("BRÜT PRİM").Value
bu kodun toplam versiyonu.

Şimdiden teşekkür ederim.
Allah Razı Olsun.
 

metehan8001

Feyzullah - XD Yönetim
Yönetici
Forum Yöneticisi
Katılım
1 Eki 2018
Mesajlar
214
Tepki puanı
103
Puanları
43
Konum
Osmaniye
Web Sitesi
www.exceldepo.com
Excel Versiyonu, Dili
Excel 2016 TR
Metehan bey;

Elinize sağlık çok güzel olmuş. Şöyle bir revize yapabilirmiyiz.
Z4 hüçresine -400 geliyor yani TAHSİLAT dosyasından D20'yi getiriyor. Benim istediğim D19 ile D20 yi toplayıp raporlaması yani; 977,76+400 = 1377,76 yı toplam olarak getirmesi.

PHP:
If rs("AÇIKLAMA-Ş").Value = Cells(i, 3).Value Then
Cells(i, 26) = rs("BRÜT PRİM").Value
bu kodun toplam versiyonu.

Şimdiden teşekkür ederim.
Allah Razı Olsun.
Öncelikle sizden de Allah razı olsun.
Yukarıda yazmış olduğunuz kodunuzu aşağıdaki gibi revize edin.

PHP:
If rs("AÇIKLAMA-Ş").Value = Cells(i, 3).Value Then
Cells(i, 26) = Cells(i, 26) + rs("BRÜT PRİM").Value
End If
 
Son düzenleme:

MESKO

Yeni Üye
Üye
Katılım
2 Eki 2018
Mesajlar
29
Tepki puanı
17
Puanları
3
Excel Versiyonu, Dili
Bilinmiyor
Öncelikle sizden de Allah razı olsun.
Yukarıda yazmış olduğunuz kodunuzu aşağıdaki gibi revize edin.

Kod:
If rs("AÇIKLAMA-Ş").Value = Cells(i, 3).Value Then
Cells(i, 26) = Cells(i, 26) + rs("BRÜT PRİM").Value
End If
Süper olmuş. (y)(y)
Çok teşekkürler.
 
Üst