Yazdır kaydet

[Fatih Şenkulak]

üstadlarım merhaba

daha önce araştırdım ve mesaj da atmıştım ama çözüme kavuşturamadığım bir sorunum var
excelde kestiğim fatura bilgilerini her fatura yazdırdığımda kaydetmek istiyorum

ekli tablomda anlatmaya çalıştım

yardım edeceklere şimdiden teşekkür ederim

 

[hamitcan]

Kodu, ThisWorkBook kısmına ekleyin.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    cvp = MsgBox("Kaydetmek İstiyor Musunuz ?", vbYesNo)
    If cvp = vbYes Then
        With Sheets("BİLGİLERİ KAYDET")
             son = .[A65536].End(3).Row + 1
            .Range("a" & son & ":" & "a" & son + 4) = WorksheetFunction.Max(.Columns(1)) + 1
            .Range("B" & son & ":" & "b" & son + 4) = Sheets("FATURA").[j27:j31].Value
            .Range("c" & son & ":" & "c" & son + 4) = Sheets("FATURA").[g4].Value
            .Range("d" & son & ":" & "d" & son + 4) = Sheets("FATURA").[b6].Value
            .Cells(son, "e") = Sheets("FATURA").[E33]
            .Range("f" & son & ":" & "f" & son + 4) = Sheets("FATURA").[e27:e31].Value
        End With
    End If
End Sub

 

[Fatih Şenkulak]

sayın hamitcan

kod çalışıyor
fakat yeni fatura numarası ve yeni bilgiler girdiğimde ve faturayı yazdır dediğimde
eski bilgiler ( bilgileri kaydet sayfasında ) kalacak yeni yazdırdığım da önceki verilerin altına sıralanacak

ilginize teşekkür ederim

 

[Fatih Şenkulak]

tekrar merhaba

kaydetme başarılı fakat
1 satırı eksik kaydediyor
dosyayı kaydedip son halini gönderiyorum
yani 120 hesap kodlarını getirmiyor

ve en üstteki satıra kayıt yapıyor

 

[hamitcan]

Böyle deneyin.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    cvp = MsgBox("Kaydetmek İstiyor Musunuz ?", vbYesNo)
    If cvp = vbYes Then
        With Sheets("BİLGİLERİ KAYDET")
             son1 = .[A65536].End(3).Row + 1
            .Cells(son1, "B") = Sheets("FATURA").[J6]
            .Cells(son1, "e") = Sheets("FATURA").[E33]
             son2 = .[B65536].End(3).Row + 1
            .Range("a" & son1 & ":" & "a" & son1 + 5) = WorksheetFunction.Max(.Columns(1)) + 1
            .Range("B" & son2 & ":" & "b" & son2 + 4) = Sheets("FATURA").[j27:j31].Value
            .Range("c" & son1 & ":" & "c" & son1 + 5) = Sheets("FATURA").[g4].Value
            .Range("d" & son1 & ":" & "d" & son1 + 5) = Sheets("FATURA").[b6].Value
            .Range("f" & son2 & ":" & "f" & son2 + 4) = Sheets("FATURA").[e27:e31].Value
        End With
    End If
End Sub

 

[Fatih Şenkulak]

kodlarınız mükemmel bir şekilde çalışıyor

birkaç ekleme yaptım tarih ve usd kısımlarını da getirmeyi başardım
sadece 120 hesabın usd kısmını getirmeyi beceremedim
sizden ricam budur eğer ilgilenirseniz çok sevinirim

dosyanın son halini ekliyorum

iyi çalışmalar

 

[hamitcan]

Yarın bakalım.

 

[Emir Hüseyin Çoban]

. . .

Müsadenizle Sy Hamitcan,
Mavi ile belirttiğim satırı ilave ederek deneyiniz.

.Cells(son1, "E") = Sheets("FATURA").[E33]
[COLOR="Blue"].Cells(son1, "H") = Sheets("FATURA").[G38][/COLOR]
son2 = .[B65536].End(3).Row + 1

. . .

 

[Fatih Şenkulak]

günaydın
can dostları güzel insanlar

denedim oldu beni büyük bir yükten kurtardınız kendimi geliştirmek için birkaç adım daha atıp farklı tablolara uygulayabileceğim denemeler yapabileceğim

teşekkürler sayın hamitcan teşekkürler hüseyin çoban

 

[aslan525]

Yazdır dediğimizde bazı hücreleri sayfanın yanına olacak şekilde yapabilirmiyiz.
kolay gelsin

 

[aslan525]

Arkadaşlar bu kodu yazdır dediğimizde değilde butona basınca çalıştırabiliriz
yardımcı olanlara şimdiden teşekkür ederim

 

[hamitcan]

Arkadaşlar bu kodu yazdır dediğimizde değilde butona basınca çalıştırabiliriz
yardımcı olanlara şimdiden teşekkür ederim

Verdiğim kod satırlarını aşağıdaki kısma ekleyiniz ve sonra sayfada bir butona bağlayınız.

  Sub Kaydet ()
'......Kod satırları
end sub