• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Sıra no verme, koşula göre veri çağırma, otomatik onay kutusu

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
tukayf

tukayf

Yeni Üye
Katılım
19 Eyl 2022
Mesajlar
528
Çözümler
19
Aldığı beğeni
143
Excel V
Office 2019 TR
Konu Sahibi
Merhabalar değerli hocalarım. Ekteki çalışmayı sn. Patron geliştirdi. Ancak ilave etmem gereken yerler var pek başarılı olamadım. Yardımlarınızı rica ediyorum. Gerekli açıklamalar dosya içerisinde de mevcuttur.

Yapmak istediğim işlem.
Sube sayfasındaki tebliğ butonu ile formu açıyoruz.
Formda yapmak istediğim işlemler
Listbox seçimini B sütununa alt alta yazdırdım. (Burda sorun yok.)
A sütununa sıra no verdim Ancak her yazdırma işleminde Listboxtaki birim kadar sıra numarası 1 den başlasın istiyorum.
B sütunundaki birime göre C sütununa her birimin ilk personelini yazdırmak istiyorum.
D sütununa Texbox5 i yazdırma istiyorum. Sube sayfasından çekilecek veriler.
E sütununa Günün tarihi
F sütuna BUGÜN()+15 gün sonrasının tarihini
G sütununa ise chexbox ekleyip evrağın geri dönüşünde onay kutusunu tikleyip evrak takibi yapmak istiyorum.
Bir de sayfaları yazdır butonuna tıkladığımızda direk yazıcıdan çıktı alıyor.
Ayrıyetten Bu evrakları PDF şeklinde kayıt yaptırabilir miyiz.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Çözüm
Caylak
Merhaba,
Ben tam olarak ne istediğinizi anlamadım sanırım,
Yine de sorunuza karşılık, cetele sayfasındaki formül için;
HTML:
C#:
İçeriği görebilmek için Giriş yap ya da Üye ol.

yukarıdaki kodu,
Teb sayfalarını birleştirip tek pdf dosyasında kaydetmek için ise;

HTML:
C#:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Tarihe göre sırala Oylara göre sırala
Konu Sahibi
D, E ve F sütunlarına yazdırma işini çözdüm.
A sütuna sıra numarası ve G sütununa checxbox ekleme olayı ile PDF olayı kaldı.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Şu kodu revize edebilir miyiz. B sütununa eklenen her değer için B son dolu satır ve A son dolu satırdan itibaren 1 den başlayarak sıra numarası verecek hale getirebilir miyiz.

lastRow = Cells(Rows.Count, "B").End(xlUp).Row

For i = 2 To lastRow
Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Value = i - 1
Next i
Genişletmek için tıkla...
 
Olumlu oy 0 Negatif oyla
Deneyiniz.
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Sn. Patron sıralama butona her bastığımda tekrar 1 den başlayacak. Örneğin butona 1 kez bastım listboxtan 3 satır yazdırdım. 1,2,3 satırlara numara verdi. 2.kez bastım bu sefer listboxtan 5 satır daha yazdırdım. 1,2,3 sıra no vermiştik zaten bu sefer 1,2,3 ün bittiği satırdan sonra tekrar 1 den başlayıp 1.2.3.4.5 olarak sıra numarası versin istiyorum. Her seferinde tüm sütuna sıra numarası vermek istemiyorum. yani 1,2,3,1,2,3,4,5 olarak sıralansın. 1,2,3,4,5,6,7,8 olarak değil.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Sn. Caylak yanıt için teşekkür ederim zihninize sağlık.
Affınıza sığınarak kodunuzu uygulamaya çalıştım ancak sanırım yanlış anlatmışım bu nedenle bir sonuç alamadım.
Teb sayfalarını tek dosyaya PDF olarak kaydetme işlemi için yardımcı olabilir misiniz.
cetele sayfasındaki sarı boyalı alandaki kodu vba ya çevirebilir miyiz.
örnek dosyayı ekledim.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 0 Negatif oyla
Konu Sahibi
WorksheetFunction.Index(sube.Range("E:E"), WorksheetFunction.Match(B3, sube.Range("I:I"), 0))
Bu formülü tüm sütun için nasıl yazmam lazım yardımcı olabilir misiniz.
 
Olumlu oy 0 Negatif oyla
Merhaba,
Ben tam olarak ne istediğinizi anlamadım sanırım,
Yine de sorunuza karşılık, cetele sayfasındaki formül için;
HTML:
C#:
İçeriği görebilmek için Giriş yap ya da Üye ol.

yukarıdaki kodu,
Teb sayfalarını birleştirip tek pdf dosyasında kaydetmek için ise;

HTML:
C#:
İçeriği görebilmek için Giriş yap ya da Üye ol.

yukarıdaki kodu kullanabilirsiniz.
 
Olumlu oy 1 Negatif oyla
Çözüm
Konu Sahibi
Sn. Hocam yanıtlar için teşekkürler. 2 kodda çalışıyor.

ActiveSheet.Cells(Rows.Count, "D").End(xlUp).Offset(1, 0).Value = TextBox5
Genişletmek için tıkla...

Son olarak texbox ı D sütununa yazdıramadım bunu da çözdüm mü sanırım dosyayı bitiriyorum.
 
Olumlu oy 0 Negatif oyla
tukayf' Alıntı:
Sn. Hocam yanıtlar için teşekkürler. 2 kodda çalışıyor.



Son olarak texbox ı D sütununa yazdıramadım bunu da çözdüm mü sanırım dosyayı bitiriyorum.
Genişletmek için tıkla...

Textboxta yazan değeri belirli bir hücreye yazdırmak için;

Sayfa.Range("D" & satır) = Textbox1
ya da
Sayfa.Cells(satır,sütun)=Textbox1

Sayfadaki veriyi Textbox'a yazdırmak için ise tam tersi;

Textbox1=Sayfa.Range("D" & satır)
ya da
Textbox1 = Sayfa.Cells(satır,sütun)
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Hocam başka bir sorun var sanırım ne yazarsam yazayım yazmıyor hücreye sorunu tespit edip çözebilirim umarım. Yanıtlar için çok teşekkürler.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Hatanın ne olduğunu bilmemekle birlikte dosyayı açıp kapatınca düzeldi. Umarım tekrar hata vermez.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst