comboboxtan sayfaya yazdırmak

[enginbagci]

benim yapmak istediğim comboboxuma gözüken sayfaları yazdırmak istiyorum
yalnız combobocumdaki veriler sayfaları icermesin örnekteki gibi belirli hücrelerden alınıyor bunu yapabilirmiyiz
teşekkürler

 

[Orion1]

Merhaba.
Aşağıdaki kodu Userform'un kod sayfasına yazıp deneyiniz.

Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To Worksheets.Count
    If Worksheets(i).Visible = True Then
        ComboBox1.AddItem Worksheets(i).Name
    End If
Next
If ComboBox1.ListCount > 0 Then ComboBox1.ListIndex = 0
End Sub

 

[enginbagci]

sezar bey user formum yok acıkcası combodan excelin hücresine aktarıyorum ordanda yazılan hücre ile istediğim bir sayfanın yazdırılması gecen gün combobox ile yaptıgınız dosya
ekliyorum dosyamı
yani ekteki F2 hücresinde yazan ve sayfalarımdan onunla ilişkili olanı yazdırmak
acemi oldugum icin excelde kendime boyle yontemler bulmaya calısıyorum
ilginize simdiden teşekkür

 

[enginbagci]

pardon

ekliyememişim gönderiyorum

 

[Orion1]

Merhaba.
Çalışma sayfanızda Combobox yok.!
Çalışma Sayfanızda Combobox olsun.Ve Combbox'ta gözüken Sayfalarmı olsun istiyorsunuz?

 

[enginbagci]

sezar bey combocoxları sayfaya siz yaptınız !!
yada benmi yanlıs biliyorum comboboxu

benim isdeğişim yazdır butonuna basılında
F2 hücresinde yazan yazıyı yani
nakit yazıyorsa "N" sayfasını
k.kartı yazıyorsa "K.K." Sayfasını
Nakit+K.Karti yazıyorsa "N+K.K." sayfasını
2 K.Karti yazıyorsa "2 K.K." sayfasını
Nakit+2.k.karti yazıyorsa "N+2K.K." sayfası yazılmasını istiyorum

teşekkürler

 

[Orion1]

Merhaba.
O combobox'lada sayfa isimleri yazmıyordu.
O zaman bir tane combobox koyalım.O combobox'ada da Sayfa isimleri olsun.
O combobox'tan seçtiğiniz sayfaya verileri aktarsın.
Yalnız verilerin akatarılacağı sayfaların standart(Hepsini ayni şekilde)olması lazım.

 

[enginbagci]

merhaba

cift combobox acıkcası benim icin iki ayrı secenek secmek zorunda kalıyorum peki comboboxun yazılıs sekillerindeki gibi sayfa isimlerini değiştirsem aynı sayfa isimleri yapsam olabilirmi ??

 

[Orion1]

O şekilde olur.
Ama o zamanda Yeni bir sayfa eklerseniz.Combobox'ta o sayfayı göremeyeceksiniz.
Şimdilik dediğiniz şekilde bir deneyin isterseniz.

 

[enginbagci]

tamam ama nasıl yaparım bu yazdırmayı onu bilmiyorum

 

[Orion1]

Merhaba.
1 adlı sayfada yazılan veriler diğer safaya (combobox'tan seçeceğiniz sayfaya) nereye yazdırılacak?

 

[enginbagci]

merhaba

sayfa isimlerini değiştirdim
combodan yazan isimlerle sayfalar aynı
comboda gecen isimdeki sayfa yazdırılmalı yazdır butonuna basılınca ?
teşekkürler

 

[Orion1]

Merhaba.
Aşağıdaki kodaları denermisiniz?

Sub yazdir()
On Error GoTo hata
Sheets(Sheets("1").ComboBox1.Value).Select
ActiveSheet.PageSetup.PrintArea = "A1:K20"
ActiveSheet.PrintOut Copies:=1
Sheets("1").Select
MsgBox "Y A Z D I R M A   İ Ş L E M İ    Y A P I L D I..", vbOKOnly
Exit Sub
hata:
MsgBox "Bir Hata Oluştu.Yazdırma İşlemi Yapılamadı.!!", vbCritical
End Sub

 

[bluebell]

merhaba

??? ç.............

 

[enginbagci]

sezar bey bu formda emeginiz cok
cok teşekkür ederim cok güzel oldu makbuz icin son kez bir sey sormak istiyorum hic yapmaıdım ama görüyorum formu gördüğünüz gibi 2nci sayfaya aktarıyorum istediğim bir fatura umarasını forma geri getirebilme ve değiştirebilme sansım varmı

hersey icin cok teşekkür edeirm

 

[Orion1]

Merhaba.
Rica ederim.İyi çalışmalar.:keyif:
Ayrıca;
İki adet nick'mi kullanıyorsunuz?
Söylediğiniz konu Bu açılan konu başlığı'nın dışında.
Yeni bir başlık açarak sorunuzu sorun.
İlgilenen arkadaşlar çıkacaktır.

 

[enginbagci]

merhaba

aynı sirketten iki kişiyiz
bazen yanlıslıkla onun bilgisayarından giriyorum o yüzden
her sey icin teşekkürler

 

[zafer]

Teşekkürler Sayın Sezar

Sayın Bluebell, Enginbağcı lütfen tek bir kullanıcı adı ile foruma sorularınızı sorunuz.
Yönetime bildirerek kullanmak istemediğiniz kullanıcı adınız iptal edilebilir .

aynı sirketten iki kişiyiz
bazen yanlıslıkla onun bilgisayarından giriyorum o yüzden
her sey icin teşekkürler

Öylede olsa girişte kendi kullanıcı adınızı ve şifrenizi kullanarak foruma giriş yapınız.

 

[enginbagci]

merhaba zafer bey

iki kullanıcı bana ait değil
aynı sirketten iki arkadasız yanlıs anlasılma oldu sanırım

acık olan kullanıcı ile o anda cevap ekledim
özür dilerim farketmedim
herkeze iyi calısmalar