• 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ü Textbox'a Gireceğim Vade Günün Üstünde olan vadeleri ilgili çalışma kitabından satırı silmek

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.
bulentkars

bulentkars

Yeni Üye
Katılım
30 May 2022
Mesajlar
605
Çözümler
5
Aldığı beğeni
104
Excel V
Office 365 TR
Konu Sahibi
Arkadaşlar Merhaba;

Ekteki Dosyada örnek ile anlattım yardımcı olabilirseniz sevinirim. Şimdiden Teşekkürler,

Yapmak İstediğim;

C:\Raporlar\ Klasöründe 4 adet xlsx çalışma kitabım var,
CEK.xlsx,SENET,xlsx,PCS.xls,KISMI.xlsx
Userform1 üzerinde de her bir dosya için bir adet Textbox var.
Tetxboxlara gireceğim vade tarihini ilgili dosyadan girilen vadeden büyük olanların satırlarının silinmesini istiyorum.
 

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.
Tarihe göre sırala Oylara göre sırala
Deneyiniz.
 

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
Merhaba;

Sadece Kısmı sayfasında kaydet işlemi yapıyor. vadeleride yanlış siliyor
Birde Kısmı nin en son sutunu M de bitiyor,
diğer kalan 3 sayfanın sutunları K da bitiyor.

1732606509880.png
1732606399595.png
 
Olumlu oy 0 Negatif oyla
Dosyayı güncelledim.
Tekrar indirin.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Merhaba;

Malesef yine olmadı,
kodlara baktığımda dosya isimlerini label den okuduğunu anlıyorum. ancak vade başlığını ilgili dosyalarda nasıl arıyor onu göremedim.
birde makro bittiğinde makronun olduğu çalışma kitabı kapanıyor.
 
Olumlu oy 0 Negatif oyla
If CDate(Cells(k, 3)) > CDate(Controls("TextBox" & i)) Then Range("A" & k & ":M" & k).Delete xlUp
satırında ilgili dosyanın kontrol edilen satırın 3. sütunundaki tarih, ilgili textboxtaki tarihten büyük mü diye bakıyor.
büyükse satırı siliyor.

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Son satıra ActiveWorkbook.Save yazılmadığı için yapılan işlemi kaydetmiyordur. kaydet kodunu yazdığımda istediğim gibi oldu.
Sadece şunu yapabilirsek eğer çok sevinirim.
Bu kodu başka bir userform da 1 den fazal olan labeller var, dosyaları label üzerinden değilde direk dosya adı üzeriden yapmamız mümkün alur mu?

örneğin :

kod buna göre uyarlanabilir mi acaba?
TextBox1 Karşılığı PCS.xlsx
TextBox2 Karşılığı SENET.xlsx
TextBox3 Karşılığı CEK.xlsx
TextBox4 Karşılığı KISMI.xlsx

Kodun son hali
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 0 Negatif oyla
dsy = Controls("Label" & i).Caption
Satırını silip aşağıdakini ekleyin
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 1 Negatif oyla
Çözüm
ilk halinde dosya ismini
for döngüsü içinde
labellerin caption kısmından sırayla aldırıyorduk.
yani i=1 iken label1'in captionu dosya adıdır diyorduk.
son halinde ise yine döngü içinde manuel olarak atadık.
yani i=1 iken dosya adı dsy="PCS.xlsx" diye elle atadık.
 
Olumlu oy 0 Negatif oyla
bulentkars' Alıntı:
Son satıra ActiveWorkbook.Save yazılmadığı için yapılan işlemi kaydetmiyordur. kaydet kodunu yazdığımda istediğim gibi oldu.
Genişletmek için tıkla...
ActiveWorkbook.Close True
satırı kaydet ve kapat anlamındadır.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst