Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 07-12-2017, 15:19   #1
Ahmet ÖZGÜR
Altın Üye
 
Ahmet ÖZGÜR kullanıcısının avatarı
 
Giriş: 08/06/2010
Şehir: İstanbul
Mesaj: 243
Excel Vers. ve Dili:
Office 2003 TR Office 2007
Varsayılan Userform' da yazdır butonu

Eklemiş oldugum örnekte ComboBox1 den sayfayı seçip yazdır dediğimde sayfaları yazdırıyor konu içerisinde askm nin eklemiş olduğu bir kod var ama bu sayfaya uyarlayamadım.

Konu: Userformdan yazdır denildiğinde Koli-Üstü sayfasında c19 hücresi (1 dir) yazdıracak taki f19 hücresindeki sayı ile eşleşince eşleşenide yazdırıp yazdırma işlemini bitmeli.

(Kağıt A5 olarak kullanılıyor) Alt tarafta ise c46 hücresindeki sayı c19 hücresindeki sayıdan 1 fazla olarak ilerleyecek..

Yukarıdaki askm nin makrosunu uyarlamayı başaramadım.
Eklenmiş Dosyalar
Dosya Türü: rar YAZDIR.rar (70.8 KB, 4 Görüntülenme)
__________________
"Korkaklıkta ar, İlerlemekte şeref var." (Ebu Dücane R.A.)
Ahmet ÖZGÜR Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-12-2017, 01:05   #2
Ahmet ÖZGÜR
Altın Üye
 
Ahmet ÖZGÜR kullanıcısının avatarı
 
Giriş: 08/06/2010
Şehir: İstanbul
Mesaj: 243
Excel Vers. ve Dili:
Office 2003 TR Office 2007
Varsayılan

Oluru yokmudur?
__________________
"Korkaklıkta ar, İlerlemekte şeref var." (Ebu Dücane R.A.)
Ahmet ÖZGÜR Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-12-2017, 07:31   #3
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: k.maraş
Mesaj: 1,698
Excel Vers. ve Dili:
2010-2016
Varsayılan

C46 F19 a eşit olunca mı durmalı. Yoksa C19 F19 a eşit olunca mı durmalı. a5 olunca C46 bir fazla gidiyor. Yapmak istediğiniz sanırım. C19=1 C46=2 daha sonra C19=3 C46=4 daha sonra C19=5 C46=6 deyip bitirmeli. Tam açıklarsanız bakalım.
__________________
excel 2010- türkçe
askm Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-12-2017, 08:31   #4
Ahmet ÖZGÜR
Altın Üye
 
Ahmet ÖZGÜR kullanıcısının avatarı
 
Giriş: 08/06/2010
Şehir: İstanbul
Mesaj: 243
Excel Vers. ve Dili:
Office 2003 TR Office 2007
Varsayılan

Alıntı:
askm tarafından gönderildi Mesajı Görüntüle
C46 F19 a eşit olunca mı durmalı. Yoksa C19 F19 a eşit olunca mı durmalı. a5 olunca C46 bir fazla gidiyor. Yapmak istediğiniz sanırım. C19=1 C46=2 daha sonra C19=3 C46=4 daha sonra C19=5 C46=6 deyip bitirmeli. Tam açıklarsanız bakalım.
askm merhaba,

c19 "1" c46 "2" bundan sonra c19 "3" olmalı c46 "4"olmalı
c19 "5" olmalı c46 "6" olunca yazdırıp durmalı

buradaki mantık (örnek: 5 bu bazen 20 de olabilir 7 de olabilir) F19 ve F46 toplam koli sayısı c19 ve c46 ise değişen koli sayıları buna paralel olarakta f19 a bakarak formüllenmiş olan benden ve adetler değişmekte

"c19" "f19" a eşit olunca yazdırıp bitirmeli

c19=5 f19=5
c46=6 f46=5

umarım anlatabilmişimdir.
__________________
"Korkaklıkta ar, İlerlemekte şeref var." (Ebu Dücane R.A.)
Ahmet ÖZGÜR Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-12-2017, 08:53   #5
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: k.maraş
Mesaj: 1,698
Excel Vers. ve Dili:
2010-2016
Varsayılan

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub CommandButton8_Click()
On Error Resume Next
Sheets(ComboBox1.Text).Select
For i = Sheets(ComboBox1.Text).Range("c19") To Sheets(ComboBox1.Text).Range("F19") + 1 Step 2
' bu ise koli yazdır komutu ile hangi satırları hareket ettireceğini belirliyor
   Sheets(ComboBox1.Text).Range("C19") = i
   Sheets(ComboBox1.Text).Range("C46") = i + 1
   Sheets(ComboBox1.Text).PrintOut
   
Next i
End Sub
__________________
excel 2010- türkçe
askm Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-12-2017, 09:01   #6
Ahmet ÖZGÜR
Altın Üye
 
Ahmet ÖZGÜR kullanıcısının avatarı
 
Giriş: 08/06/2010
Şehir: İstanbul
Mesaj: 243
Excel Vers. ve Dili:
Office 2003 TR Office 2007
Varsayılan

Alıntı:
askm tarafından gönderildi Mesajı Görüntüle
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub CommandButton8_Click()
On Error Resume Next
Sheets(ComboBox1.Text).Select
For i = Sheets(ComboBox1.Text).Range("c19") To Sheets(ComboBox1.Text).Range("F19") + 1 Step 2
' bu ise koli yazdır komutu ile hangi satırları hareket ettireceğini belirliyor
   Sheets(ComboBox1.Text).Range("C19") = i
   Sheets(ComboBox1.Text).Range("C46") = i + 1
   Sheets(ComboBox1.Text).PrintOut
   
Next i
End Sub

askm budur. Teşekkür ederim.

Eklemiş olduğum dosyanın sizce ilerleyişi nasıl vaktiniz olunca bakabilirseniz eksik gördüğünüz birşeyler var ise yazarsanız eksik olanları görmüş olurum.
__________________
"Korkaklıkta ar, İlerlemekte şeref var." (Ebu Dücane R.A.)
Ahmet ÖZGÜR Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 02:35


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri- Çorlu Çelik Konstruksiyon- Çorlu Dans- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden