Combobox tan seçip yazdırma

[Mdemir63]

Selamlar,
Arkadaşlar benim bir isim listem var. Bu isim listesini Combobox dan seçiyorum ve yazdırıyorum. Yapmak istediğim yazdırdığım ismi tekrar yazdırmak istediğimde daha önce yazdırılmış yinede yazdırmak istiyormusunuz diye uyarı vermesini istiyorum. Nasıl yapabilirim?

Saygılar

 

[leumruk]

Yazdırılanlar sütunu oluşturarak, her yazdırılanı buraya kaydedip, diğer yazdırmada buradan kontrol etmesini sağlayabilirsiniz.

 

[Mdemir63]

Yazdırılanlar sütunu oluşturarak, her yazdırılanı buraya kaydedip, diğer yazdırmada buradan kontrol etmesini sağlayabilirsiniz.

Selamlar,

Nasıl oluşturabilirim?

Saygılar

 

[leumruk]

For i = 1 To [D65536].End(3).Row
If ComboBox1.Value = Cells(i, 4) Then
MsgBox "Bu bilgi daha önce yazdırılmış"
Exit Sub
End If
Next i

Sat = [D65536].End(3).Row + 1
Cells(Sat, "D") = ComboBox1.Value

Yazdırılanlar sütununu "D" olarak alırsak 1. yazdığım kod, comboboxta yazdığınız sayfayı d sütununda arar, eğer varsa uyarı verir ve makrodan çıkar. Bu kodu yazdırma kodlarınızın hemen başına yerleştireceksiniz.
İkinci kod, comboboxa getirip tamama tıkladığınızda comboboxtaki sayfa adını d sütunundaki ilk boş hücreye kopyalayacak olan kod. Bunu da yazdırma kodunuzun en sonuna yerleştireceksiniz.
NOT: Bütün bunlar tahmini, deneme şansı olmadan yazılan kodlar. Daha kesin cevap almak için örnek bir dosya, en azından kodlarınızı eklemeniz gerekir.

 

[Mdemir63]

sEALAMLAR,

Hocam en güzeli ben dosyamı göndereyim

Saygılar

 

[leumruk]

Yazdırmadan kastınız hücreye yazdırma mı? Bir de koruma kodunu alabilir miyiz?

 

[Kemal Demir]

iyi geceler komutan63,

Aşagıdaki kodu "TAPU FATURA" sayfasına bir buton koyarak denermisiniz.

Sub yazdir()
Dim ara As String
ara = Sheets("TAPU FATURA").ComboBox1.Text
git = Sheets("VERİTABANI").Range("b2:b1000").Find(ara).Row
If Sheets("VERİTABANI").Cells(git, 6) = "" Then
Sheets("VERİTABANI").Cells(git, 6) = "Yazılıyor"
'print kodunu gir
'daha başka bir kod kullanabilirsiniz
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Sheets("VERİTABANI").Cells(git, 6) = "Yazdırılma tarihi" & " " & Date

Else
a = MsgBox("Daha Önce Bu Sayfa Yazıdırıldı", vbYesNo, "Dikkat ")
If a = vbYes Then
Sheets("VERİTABANI").Cells(git, 6) = "Yazılıyor"
Sheets("VERİTABANI").Cells(git, 6) = "Yazdırılma tarihi" & " " & Date
'print kodunu gir
'daha başka bir kod kullanabilirsiniz
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

End If
End If
End Sub

umarım doğru anlamısımdır.

 

[Mdemir63]

sELAMLAR,

ŞİFRE 2074

SAYGILAR

 

[Kemal Demir]

komutan63,

Merak ettim kod çalışmadı mı?

 

[Mdemir63]

komutan63,

Merak ettim kod çalışmadı mı?

Selamlar,
Hocam inanın deneyemedim . Eğer deneseydim mutlaka size bir teşekkür göderirdim. Fırsatım olmadı özür dilerim.
Saygılar

 

[Mdemir63]

komutan63,

Merak ettim kod çalışmadı mı?

Selamlar,

Hocam yeni fırsat buldum . Elinize sağlık benim istediğim tam buydu. Çünkü Aynı isme ikinci bir fatura kesmemek için bu çok önemliydi. Çok sağolun.

Saygılar

 

[Kemal Demir]

Rica ederim.
Teşekkur beklediğimden değil.Srounu cozumu onemli.