Masa üstünde çalışmasında sorun

[TİKOS]

Arkadaşlar,
Sizlerin yardımı ile bir proje geliştirdim. Ekte bir kısmını gönderiyorum.
Bu dosyamı masa üstüne atayıp çalıştırmak istiyorum. Onuda yaptım ama
dosyayı yazdırmak istediğimde "Tum sözleşmeleri yazdır" butonu bastığımda print previev şeklinde göremiyorum akabinda bilgisayarım kilitleniyor. Bu konuda bana yardımcı olurmusunuz.

Teşekkürler

 

[TİKOS]

arkadaşlar, yardım lütfen

 

[ExcelF1]

Excel'in visible özelliğini false yaptıktan sonra, baskı önizlemenin gösterilememesi normaldir.

Kodlarınıza küçük bir ilave ile,
Önizleme yapılmadan hemen önce visible özelliği true yapılmakta ve tekrar forma
dönüşte userformun activate olayı ile false değerine döndürülmektedir.

Kolay gelsin.

 

[TİKOS]

çok teşekkürler
Allah razı olsun

 

[TİKOS]

Hocam şimdi dikkatimi çekti. önizleme yaptıktan sonra kapattığımda excel sayfası açık kalıyor
önizleme yapıp kapattıktan sonra excelinde kapanmasını istiyorum.
Yardımcı olurmusunuz.

 

[ExcelF1]

Eklemiş olduğum dosyada, Userformun Activate koduna, tekrar visible olması için ekleme yapmıştım.

Önizleme kapatıldığı anda, Userform aktif olacak ve gerekli kod çalışarak, excel'i yine visible yapacaktır.

Acaba Siz gerekli düzeltmeyi yaptınız mı ?

 

[TİKOS]

Haklısınız o düzletmeyi almamışım.
Sizi bulmuşken proje dediğim dosyayı bitirdim ama bir problem karşılaştım.
Veri kayıt yapıyorum, daha sonra rapor deyip veri getirdikten sonra
bir daha kayıt yapmak istediğimde en son satıra gelip kaldığı yerden kayıt yapamıyorum.
yardımcı olurmusunuz.

 

[ExcelF1]

Yeni Kayıt butonuna ait kodları aşağıdaki şekilde revize ediniz.

Private Sub cmdkayit_Click()

If txtfirma = "" Then
MsgBox "Lütfen Firma İsmi Giriniz", , "   Eksik Veri"
Exit Sub
End If
Sheets("tablo").Select
Range("a4").Select
If Range("a4").Value = "" Then
Range("a4").Value = 1
Else
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
End If

ActiveCell.Offset(0, 1).Value = txtfirma.Text
'ActiveCell.Offset(0, 2).Value = Txtproje.Text
ActiveCell.Offset(0, 2).Value = txttarih.Text
ActiveCell.Offset(0, 3).Value = txtdirekt.Text
ActiveCell.Offset(0, 4).Value = txtsabit.Text
ActiveCell.Offset(0, 5).Value = txtnakliye.Text
ActiveCell.Offset(0, 7).Value = txtsozlesme.Text
ActiveCell.Offset(0, 8).Value = txtpreftl.Text
ActiveCell.Offset(0, 9).Value = txtprefmk.Text
ActiveCell.Offset(0, 11).Value = txtpnltl.Text
ActiveCell.Offset(0, 12).Value = txtpnlmk.Text
ActiveCell.Offset(0, 14).Value = txtkoprutl.Text
ActiveCell.Offset(0, 15).Value = Txtkoprumk.Text
ActiveCell.Offset(0, 17).Value = Txtnakliyetl.Text
ActiveCell.Offset(0, 18).Value = Txtnakliyeton.Text
ActiveCell.Offset(0, 20).Value = txtypl.Text
ActiveCell.Offset(0, 21).Value = txtypla.Text
ActiveCell.Offset(0, 23).Value = Txtaciklama.Text
MsgBox "Kayıt İşlemi Tamamlandı.", , "   KAYIT"
End Sub

Kodlarınızı çok fazla incelemedim ama, kodlarınızda 1 nokta daha dikkatimi çekti. tablo1 isimli userformunuzda combobox ile getirdiğiniz kayıtlar. Eğer aynı firma 2 kez kayıt yapılmışsa, hep 1. firmanın bilgileri gelecektir. Bu ileride hatalı işlemler yapmanıza sebebiyet verebilir. Bilginize...

Bu durumdan kurtulmak için, birbirine benzemeyen farklı bir veri tipi bulmalısınız. Yani firma isimleri aynı olsa bile ayırt edici başka bir özellik. Örneğin şahıs kaydı yapmış olsaydık, ayırt edici özellik olarak TC Kimlik No'sunu kullanırdık, gibi.

 

[ExcelF1]

ve...

Allah razı olsun

Amin, cümlemizden inşallah.

 

[TİKOS]

çok teşekkürler
ellerinize sağlık

 

[TİKOS]

Hocam, taksit taksit soru soruyorum ama kusura bakma.
Son eklediğim dosyada Sözleşme Userformunda çıkış butonu ile çıkış yapınca
excel dosyasıda save yapıp dosyanın kapanmasını istiyorum.
Yardımcı olurmusunuz.

 

[ExcelF1]

Çıkış butonuna aşağıdaki kodları yazın.

Private Sub CommandButton3_Click()
Dim a, b
a = MsgBox("Çıkmak istediğinizden emin misiniz ?", vbYesNo, "   ÇIKIŞ")
If a = vbYes Then
ThisWorkbook.Save
If Windows.Count > 1 Then
Windows("Copy of Sozlesme Girisi.xls").Activate
ActiveWindow.Close
Else
Application.Quit
End If
ElseIf a = vbNo Then
Exit Sub
End If
End Sub

Not = Çalışma Kitabının ismi önemlidir. İsim değiştirildiği, kodlamadaki isimde değiştirilmelidir.

 

[TİKOS]

teşekkürler
Allah razı olsun

 

[ExcelF1]

Amin, cümlemizden inşallah.