Kapalı Dosyadan Mükerrer Kayıt Silme

mertatakan3838 · 8 Şub 2022

Değerli forum üyeleri paylaşmış olduğum çalışma ile yapmak istediğim kapalı isimli çalışma kitabım masaüstünde olmak koşulu ile kapalı dosyanın C sütunundaki TC kimlik numarasını baz alarak mükerrer kayıtlardan birini bırakıp diğer mükerrerlerin bulunduğu satırları komple silmek istiyorum. Yardımlarınız için şimdiden teşekkürler

okutkan · 8 Şub 2022

Kapalı dosyanız masa üstünde bulunsun. Açık kitap isimli dosyada buton ekledim. Butonu kullanarak işlem yapabilirsiniz.

mertatakan3838 · 8 Şub 2022

okutkan' Alıntı:
Kapalı dosyanız masa üstünde bulunsun. Açık kitap isimli dosyada buton ekledim. Butonu kullanarak işlem yapabilirsiniz.

Sayın bu satırda hata alıyorum
Set kapali = Workbooks("kapalı") ' kapali dosyanın ismi

ExcelDepo · 8 Şub 2022

Eğer kapalı dosyayı açtırmadan bir silme işlemi düşünüyorsanız, bu erişim için kullandığımız ADO yöntemi ne yazık ki Excel veritabanında DELETE komutunu desteklemiyor.

Bilgi olarak yazmak istedim.

okutkan · 8 Şub 2022

mertatakan_3838' Alıntı:
Sayın bu satırda hata alıyorum
Set kapali = Workbooks("kapalı") ' kapali dosyanın ismi

Kapalı dosyanızın ismini iki tırnak arasına yazın.

mertatakan3838 · 8 Şub 2022

okutkan' Alıntı:
Kapalı dosyanızın ismini iki tırnak arasına yazın.

Sayın okutkan dosyamın ismi kapalı.xlsx yani o bölüm aynı kapalı şeklinde yazdım

mertatakan3838 · 8 Şub 2022

Admin' Alıntı:
Eğer kapalı dosyayı açtırmadan bir silme işlemi düşünüyorsanız, bu erişim için kullandığımız ADO yöntemi ne yazık ki Excel veritabanında DELETE komutunu desteklemiyor.

Bilgi olarak yazmak istedim.

Aç kapa yapılabilir sorun olmaz

okutkan · 8 Şub 2022

Açık ve kapalı olan İki dosyanızıda masaütsüne alarak dener misiniz. Dosyayı denediğimde hata vermeden işlem yapıyordu.
Yine hata verirse, tüm kodu burada paylaşın, bilgisayarda olmadığım için kodları kontrol edemiyorum.

mertatakan3838 · 8 Şub 2022

Kod:

İndirmek için giriş yapmanız gerekmektedir.
(34 satır)

Her iki dosyada masaüstünde ancak yine aynı hatayı alıyorum

okutkan · 8 Şub 2022

Aşağıdaki kodu bir deneyin.
Hata verdiğinde "kapalı" isimli dosyanızda açılmış durumda mı oluyor dikkat edin.

Kod:

İndirmek için giriş yapmanız gerekmektedir.
(32 satır)

mertatakan3838 · 8 Şub 2022

okutkan' Alıntı:
Aşağıdaki kodu bir deneyin.
Hata verdiğinde "kapalı" isimli dosyanızda açılmış durumda mı oluyor dikkat edin.

Kod:

İndirmek için giriş yapmanız gerekmektedir. (32 satır)

Aynı satırda hata veriyor hata verdikten sonra kapalı dosya açık kalıyor

okutkan · 8 Şub 2022

O satırı deneme amaçlı yazmıştım, şimdi farkettim. Hata veren satırı silin Ve aşağıdaki satırı da silip deneyin.

aa = kapali.Name

mertatakan3838 · 8 Şub 2022

okutkan' Alıntı:
O satırı deneme amaçlı yazmıştım, şimdi farkettim. Hata veren satırı silin Ve aşağıdaki satırı da silip deneyin.

aa = kapali.Name

Workbooks("kapalı").Save: Workbooks("kapalı").Close
bu satırda hata verdi bu seferde
subscript out of range hatası

okutkan · 8 Şub 2022

Aslında kodu denediğimde bu satırların hiç birinde hata vermeden istediğiniz işlemi gerçekleştirmişti.

Workbooks("kapalı") yazan yerleri Activeworkbook olarak değiştirip deneyin.

okutkan · 12 Şub 2022

Sorunuzun çözüme ulaşıp ulaşmadığını halen daha yazmamışsınız?

	Makro ile Kapalı Dosyadan Veri Çekme PriveT 4 Mar 2025 Makro Soruları
	Kapalı Dosyadan Veri Çekme valentino06 3 Mar 2024 Makro Soruları
	Kapalı Dosyadan Dosya İsimleriyle Veri Alma umit1907 2 Şub 2025 Makro Soruları
	Kapalı Dosyadan İki Kritere Göre Veri Çekme cakarem 20 Şub 2024 Makro Soruları
	Şarta Göre Kapalı Dosyadan Veri Çekme linkme 14 Mar 2025 Makro Soruları