Kesilen fatura kayıtlarını başka sayfaya ekleyerek kaydetmek.

[relaxim]

Merhabalar. Yardımlarınızla oluşturduğum irsaliye ve fatura kesme programını bir aşama daha ileri götürmek istiyorum. Kesilen faturaların kayıtlarını tutmak istiyorum. Örneğimi ekledim. Başka bir sayfaya veya başka bir çalışma kitabına kaydedilmesini istiyorum. Önerilere açığım. İlgilenecek üstatlara şimdiden teşekkür ederim.

 

[turist]

Dosyanız eklidir.
"Fatura Kaydet " Butonuna basarak sonuçları gözlemleyin.

 

[relaxim]

Merhaba Turist elinize sağlık, çok güzel olmuş. Bu haliyle bile kullanabilirim. Her bir parçanın değil de sadece faturanın tutarı , kdv ve genel toplamını son üç sütunda görmek istemiştim. Satırlarda tekrarlayabilir yada o faturaya ait en son parçanın son 3 sütununda faturanın tutarı , kdv ve genel toplamı görebilir miyiz?
Teşekkür ederim. Saygılar....

 

[relaxim]

Merhabalar, Bir de aynı fatura nolu kayıt varsa uyarı verip kaydetmemesini sağlayabilir miyiz. Foruma emeği geçen herkese teşekkürler...

 

[relaxim]

Konu günceldir...

 

[askm]

Mükerrer kaydı engellemek için aşağıdaki kodları kullanın;

Private Sub CommandButton1_Click()
Dim s1 As Worksheet: Set s1 = Sheets("FATURA")
Dim s2 As Worksheet: Set s2 = Sheets("Fatura Kayıtları")
Dim son2 As Long: son2 = s2.Range("A65500").End(xlUp).Row + 1
Say = WorksheetFunction.CountIf(s2.Range("d2:d" & son2), s1.Cells(4, 6))
If Say > 0 Then MsgBox "Bu fatura daha önce kaydedilmiştir...", vbInformation, "ASKM": Exit Sub

For i = 11 To 35
If s1.Cells(i, 1) <> "" Then
s2.Cells(son2, 1).Value = s1.Cells(2, 1).Value
s2.Cells(son2, 2).Value = s1.Cells(6, 6).Value
s2.Cells(son2, 3).Value = s1.Cells(8, 6).Value
s2.Cells(son2, 4).Value = s1.Cells(4, 6).Value 'fatura no
s2.Cells(son2, 5).Value = s1.Cells(i, 1).Value
s2.Cells(son2, 6).Value = s1.Cells(i, 2).Value
s2.Cells(son2, 7).Value = s1.Cells(i, 3).Value
s2.Cells(son2, 8).Value = s1.Cells(i, 4).Value
s2.Cells(son2, 9).Value = s1.Cells(i, 5).Value
s2.Cells(son2, 10).Value = s1.Cells(i, 6).Value
s2.Cells(son2, 11).Value = Round(s2.Cells(son2, 10) * 0.18, 2)
s2.Cells(son2, 12).Value = s2.Cells(son2, 10) + s2.Cells(son2, 11)
End If
son2 = son2 + 1
Next i



End Sub

 

[relaxim]

Sn askm cevabınız için teşekkürler. Mükerrer kayıt problemi çözüldü.

 

[relaxim]

Merhabalar, daha önce Turist ve askm hocalarımla problemi çözmüştük. Bir aşama ileri geçerek İRSALİYE sayfasında seçtiğim firma bilgileri ve ürünler FATURA sayfasına da gelsin (=eğer(İRSALİYE!A11<0;İRSALİYE!A11;" ") ) ben sadece fatura no'sunu değiştireyim dedim. Fatura kayıtlarında sıkıntı oluştu. Boş satırları da kaydediyor.

Kaydet butonu etkilemeden İRSALİYE sayfasındaki bilgilerin düzenleme tarihi ve saati hariç diğer verilerini FATURA sayfasına aktarmasını istiyorum. Ya da kaydet butonunu sadece dolu satırları kaydedecek şekilde ayarlayabilir miyiz? Bu konuda yardımcı olabilir misiniz?

 

[relaxim]

Güncel...

 

[relaxim]

Güncel.....

 

[relaxim]

Sayfa koruma şifresi 123 yazmayı unutmuşum.

 

[relaxim]

Merhabalar...
Sayfa korumasını kaldırıp yeniden 8. mesaja yükledim.

 

[relaxim]

Merhabalar,

=eğer(İRSALİYE!A11<0;İRSALİYE!A11;" ") "" aradaki boşluğu kaldırınca problem çözüldü.