Çoklu Dosya Silme

[5353]

ekte Asrı kardeşimizin sayfada paylaştığı Çoklu dosya silme sayfası var.
Benim başaka bir Excel dosyasına bunu sayfa olarak taşımak istiyorum.

Sayfa üzerine "menü sayfası" sağ tuş yapıp taşı kopyala seçeneğiyle taşıyorum. Diğer dosyadaki sayfalara gidiyor. Orada sil butonuna basınca. eski dosya açılıp ondan işlem yapıyor. İkinci bir Çalışma kitabı açılmadan yeni çalışma sayfasında çalışmaz mı ?

Dosya ektedir. Bu dosyadaki menu sayfasını çalışacak şekilde yeni Excel kitabında nasıl çalıştırırım.

 

[Ömer BARAN]

Merhaba.

Başka yolu da mutlaka vardır ama pratik çözüm için şunu önereyim.

-- Silme işlemini yapan menu makrosunu Module'den kesip, ilgili sayfanın kod bölümüne yapıştırın,
-- Sayfanın kod bölümüne ayrıca aşağıdaki kod blokunu ekleyin,
-- D1 hücresine VERİ DOĞRULAMA =>LİSTE seçeneğinde SİL;BEKLE yazarak işlemi onaylayın,
-- Silme işlemi artık düğme kullanılarak değil, D1 hücresindeeki VERİ DOĞRULAMA'dan SİL seçildiğinde gerçekleşecektir.
-- Artık sayfayı TAŞI veya KOPYA OLUŞTUR =>YENİ KİTAP olarak boş bir belgeye veya kayıtlı başka bir belgeye aldığınızda da
D1 hücresindeki seçime göre istenilen silme işlem gerçekleşecektir.
.

[B]Private Sub Worksheet_Change(ByVal Target As Range)[/B]
If Intersect(Target, [[B][COLOR="Red"]D1[/COLOR][/B]]) Is Nothing Then Exit Sub
    If Target.Value = "SİL" Then
        Call [COLOR="Red"][B]menu[/B][/COLOR]
        Target = "BEKLE"
    End If
[B]End Sub[/B]

 

[5353]

Ustad teşekkürler.
Fakat yapamadım
Sub sifirlaaranan()
For i = 1 To 10000
aranacaklar(i) = ""
Next i
End Sub

aranacaklar hatası veriyor.

Biraz şöyle oluyor bana veriyorsunuz hem iş ile hem benle uğraşıyorsunuz özür dilerim.

Siz dosya şeklinde yapabilir misiniz ...

 

[Ömer BARAN]

Deneme yaptığımda ben de sorunla karşılaştım.
Bence kodların sahibi Sayın Asri AKDENİZ ile irtibata geçin.

Yapmak istediğinizi net ifade ederek ve düğme kullanmadan (Worksheet_Change kodu ile sayfadaka iVERİ DOĞRULAMA üzerinden)
kodları çalıştırmak istediğinizi, kodların MODULE'de değil sayfanın kod bölümünde olmasını istediğinizi mutlaka belirtin.
.