Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Diğer Excel Soruları
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Diğer Excel Soruları Yukarıdaki başlıklara uymayan Excel sorularınızı bu bölüme gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 01-06-2012, 09:19   #11
hamitcan
Uzman
 
hamitcan kullanıcısının avatarı
 
Giriş: 01/07/2004
Mesaj: 7,054
Excel Vers. ve Dili:
Excel 2007 Türkçe
Varsayılan

Böyle deneyin.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub IsimleriSil()
    ActiveWorkbook.Names("DışVeri_1").Delete
    ActiveWorkbook.Names("DışVeri_2").Delete
    MsgBox "Adlar Silindi"
End Sub
__________________
Yolda Yürüme Kuralları







hamitcan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 01-06-2012, 10:19   #12
İdris SERDAR
Moderatör
 
İdris SERDAR kullanıcısının avatarı
 
Giriş: 21/10/2005
Şehir: Ankara
Mesaj: 14,565
Excel Vers. ve Dili:
Excel, 2016 - İngilizce
Varsayılan

Alıntı:
designer41 tarafından gönderildi Mesajı Görüntüle
Sayın hamitcan hocam
Sadece aşağıdaki adları otomatik silmek için nasıl bir kod yazabiliriz?
DışVeri_1
DışVeri_1
DışVeri_2
DışVeri_3
DışVeri_4

yardımcı olabilirmisiniz acaba?
DışVeri_1
DışVeri_1
DışVeri_2
DışVeri_3
DışVeri_4

Veya İngilizce:

ExternalData_1
ExternalData_2
ExternalData_3
ExternalData_4

şeklinde Webten Dış Veri Al yönteminde her alışta veya güncellemede, Excel yukarıda belirtildiği şekilde otomatik olarak tanımlanmış alan adları yaratır.

Bunları tek tek silinme yoluna gidilebilir.

Makro kaydet ile elde edeceğimiz aşağıdaki gibi kodlar:

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub IsimleriSil()
    ActiveWorkbook.Names("DışVeri_1").Delete
    ActiveWorkbook.Names("DışVeri_2").Delete
    MsgBox "Adlar Silindi"
End Sub
1 ve 2 yerine döngü de kullansak bu kodlar çalışmaz. (Yada ben çalıştıramadım.)

Bu alan adlarının arka planda çalışan query'den silmek gerekir. Bu nedenle aşağıdaki kodları kullanmak gerekir.

İki örnek verilmiştir.


Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub disvalnsil()

For Each Syf In Worksheets
For Each qt In Syf.QueryTables
qt.Delete
Next
Next

End Sub

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Bagalnsil()

Dim Syf As Worksheet, bag As Object
Dim xbag As Object


For Each xbag In ActiveWorkbook.Connections
If UCase(xbag.Name) Like "*" Then xbag.Delete
Next xbag

For Each Syf In ActiveWorkbook.Worksheets
For Each xbag In Syf.Names
xbag.Delete
Next xbag
Next Syf

End Sub
Denemeyi aşağıdaki dosyada yapıp sonucu görebilirsiniz.

http://www.excel.web.tr/attachment.p...6&d=1335770665

.
__________________
Çalışmalarımı görmek için:

http://www.excelgurusu.com/

İdris SERDAR
İdris SERDAR Çevrimdışı   Alıntı Yaparak Cevapla
Eski 01-06-2012, 11:54   #13
uzmanamele
Uzman
 
uzmanamele kullanıcısının avatarı
 
Giriş: 26/09/2007
Şehir: Süleyman Özyüksel / Ankara
Mesaj: 8,795
Excel Vers. ve Dili:
excel 2010
Varsayılan

Merhaba

Hatalı adların silinmesiyle ilgili bir şey dikkatimi çekti,
3 nolu mesajda önerdiğim kodu kullandığımda seçime bağlı olarak istediğimiz adları silebiliyoruz.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub T_Ad_Sil()
On Error GoTo 10
Dim ONAY As Byte
For Each adlar In ThisWorkbook.Names
    ONAY = MsgBox(adlar.Name & vbCrLf & adlar & vbCrLf & vbCrLf & _
    "Tanımlı Ad Silinsin mi?", vbInformation + vbYesNo)
    
    If ONAY = vbYes Then
        adlar.Delete
    ElseIf ONAY = vbNo Then
    End If
10:
    Next
End Sub
.xls dosyası excel2007 ve üstü sürümlerle kullanıldığında EĞERHATA (IFERROR) fonksiyonu kullanıldığını farz edelim.
Bu dosya excel2003 ile açıldığında _xlfn.IFERROR hatası verecektir.
Nasıl oluyor bilmem, bu hata dosya içerisinde yapışıp kalıyor.
Ya da bu hücre ad tanımlama ile tanımlanmışsa yapışkan hale geliyor olabilir, emin değilim.

Fonksiyon hatayı giderip dosyayı kullanabiliyoruz. Ancak dikkatimi çeken şu oldu.
_xlfn.IFERROR hatalı adı, ad yöneticisinde görülmezken yukarıda verdiğim kod ile görülebiliyor ancak silinemiyor.
Dosyayı .xlsx veya .xlsm formatından .xls formatına dönüştürerek kod çalıştırılırsa hatalı ad siliniyor.

Ek dosyada bunu görebilirsiniz.
Eklenmiş Dosyalar
Dosya Türü: xlsm _xlfn.IFERROR.xlsm (159.6 KB, 13 Görüntülenme)
__________________
Türk genci, İnkılapların ve rejimin sahibi ve bekçisidir.
Atatürk
uzmanamele Çevrimdışı   Alıntı Yaparak Cevapla
Eski 01-06-2012, 11:58   #14
hamitcan
Uzman
 
hamitcan kullanıcısının avatarı
 
Giriş: 01/07/2004
Mesaj: 7,054
Excel Vers. ve Dili:
Excel 2007 Türkçe
Varsayılan

Galiba sayfa isimleri eklenince, siliniyor.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
ActiveWorkbook.Names("veri!DışVeri_1").Delete
Bu arada döngü kullanımı ile ilgili bir örnek de konu içinde olmalı. Döngüyü de sayfa ismini kullanarak oluşturursak tamamını silebilir diye düşünüyorum.
__________________
Yolda Yürüme Kuralları







hamitcan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 27-01-2013, 11:07   #15
esrefilvan
Altın Üye
 
Giriş: 24/11/2006
Şehir: Ankara
Mesaj: 39
Excel Vers. ve Dili:
excel 2007
Varsayılan

Sayın uzmanamele ellerinize sağlık.Büyük bi derten kurtardın.
esrefilvan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 09-01-2018, 08:37   #16
rahyme
Altın Üye
 
Giriş: 24/12/2017
Şehir: kocaeli
Mesaj: 1
Excel Vers. ve Dili:
2013
Varsayılan

merhabalar,

Bu kodu çalıştırdığımızda herhangibir sayfayı bir kez kopyalama işlemi yaptığımda sorun görünmüyor. Fakat Kopyalanan sayfayı tekrar kopyaladığımızda aynı hata devam ediyor.Çözüm öneriniz nedir?

Teşekkür ederim.Saygılarımla
rahyme Ç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 06:39


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- Karton Bardak- Çorlu Dil ve Konuşma Terapisti- Çorlu Dil ve Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Rampa- Rotary- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Çorlu Sürücü Kursu- Şişli Avukat- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kaplan Tekstil- Çorlu Perde- Çorlu Havuz- Makina- Danışmazlar-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden