[Yardım]  Ad Tanımlama Silme

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Ad Tanımlama Silme

İleti#1)  feraz » 06 Şub 2019 18:02

Merhaba.

Örneğin sadece Sayfa1 deki ad tanımlamalarını kod ile nasıl silebiliriz?

Saygılar.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5769
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Ad Tanımlama Silme

İleti#2)  askmadige34 » 06 Şub 2019 19:14

Tanımlamak için
ActiveWorkbook.Names.Add Name:="Ali", RefersToR1C1:="=Sayfa1!R1C1:R11C5"
Silmek için
ActiveWorkbook.Names("Ali").Delete
askmadige34
Forum Moderatörü
 
Kayıt: 20 Kas 2015 11:04
Meslek: memur
Yaş: 38
İleti: 1690
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kayseri

Cevap: Ad Tanımlama Silme

İleti#3)  askmadige34 » 06 Şub 2019 19:16

Tüm isimleri silmek için;
Kod: Tümünü seç
Sub Tüm_Isimleri_Sil()
Dim askm As Name

For Each askm In Application.ActiveWorkbook.Names
       askm.Delete
Next
End Sub
askmadige34
Forum Moderatörü
 
Kayıt: 20 Kas 2015 11:04
Meslek: memur
Yaş: 38
İleti: 1690
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kayseri

Cevap: Ad Tanımlama Silme

İleti#4)  şahin » 06 Şub 2019 19:16

Merhaba
Bunu dene

Kod: Tümünü seç
For Each AdAlanSil In Sayfa1.Names
   AdAlanSil.Delete
Next
Kullanıcı avatarı
şahin
Site Dostu
 
Kayıt: 30 Eyl 2016 21:24
Meslek: memur
Yaş: 29
İleti: 527
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Ad Tanımlama Silme

İleti#5)  feraz » 06 Şub 2019 19:39

Merhaba Ali hocam.

Dediklerinizi zaten bulmuştum lakin sorumla alakası yok bence.
Yani sadece sayfa1 deki ad tanımlamalar silinecek.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5769
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Cevap: Ad Tanımlama Silme

İleti#6)  feraz » 06 Şub 2019 19:40

şahin yazdı:Merhaba
Bunu dene

Kod: Tümünü seç
For Each AdAlanSil In Sayfa1.Names
   AdAlanSil.Delete
Next


Merhaba.

Malisef kodu sub içine alıp f8 ile adımlayınca direkt end sub a atıyor yani hiç bulupta silmiyor.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5769
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Ad Tanımlama Silme

İleti#7)  feraz » 06 Şub 2019 19:45

Aklıma birşey geldi.
Örneğin alttaki yerin sadece sayfa adını döngüyle vs..ile bulupta sildirebilirim belki.

Denemekte fayda var.

Kod: Tümünü seç
RefersToR1C1:="=Sayfa1!
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5769
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Ad Tanımlama Silme

İleti#8)  şahin » 06 Şub 2019 20:03

Örnek dosya ekte

AdAlanSil.rar
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
şahin
Site Dostu
 
Kayıt: 30 Eyl 2016 21:24
Meslek: memur
Yaş: 29
İleti: 527
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: Cevap: Ad Tanımlama Silme

İleti#9)  feraz » 06 Şub 2019 20:19

şahin yazdı:Örnek dosya ekte

AdAlanSil.rar


Malisef.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5769
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Ad Tanımlama Silme

İleti#10)  feraz » 06 Şub 2019 20:34

Alttaki kod ile sorunu çözdüm.

Her ikinizede teşekkürler.

Kod: Tümünü seç
Sub SayfaAdSil()

Dim xxx As Name
Dim kes

'On Error Resume Next

For Each xxx In ThisWorkbook.Names
    kes = Split(xxx, "!")
    If LCase(Mid(kes(UBound(kes) - 1), 2, Len(kes(UBound(kes) - 1)))) = "sayfa1" Then
       xxx.Delete
    End If
Next
Erase kes

End Sub
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5769
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Cevap: Cevap: Ad Tanımlama Silme

İleti#11)  şahin » 06 Şub 2019 20:48

feraz yazdı:
şahin yazdı:Örnek dosya ekte

AdAlanSil.rar


Malisef.



Sayfanın üst sağ kısmındaki "Ad kutusu" ndan ad alanı oluşturursanız bunun kapsamı sayfa1 değil tüm çalışma kitabıdır ve bunları silmeniz için son gönderdiğim örnek excel doyasındaki "tüm çalışmakitabından sil" butonunun çalıştırdığı (modul içerisindeki "KitapAdAlanlarSil" makrosunu çalıştırmanız gerekir.
Kullanıcı avatarı
şahin
Site Dostu
 
Kayıt: 30 Eyl 2016 21:24
Meslek: memur
Yaş: 29
İleti: 527
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: Ad Tanımlama Silme

İleti#12)  feraz » 06 Şub 2019 21:05

9.Mesajda dikkat ettiyseniz(Gifte) ad tanımlamaları yaptım aaa gibi.

Bazıları sayfa1 bazılarıda diğer sayfalar içinde tanımlama yaptım.
Ben istedimki sadece sayfa1 içinde tanımlama yaptıklarım silinmesiydi.

Fakat giftede görüldüğü gibi kod end suba gidiyor.
En son yazdığım kod çalışıyor.Brlki daha kısa varsa daha iyi olur.

Yada sizinki çalışıyorsa bir gif ekleyebilirmisiniz izleyeyim.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5769
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Ad Tanımlama Silme

İleti#13)  Erkan Akayay » 06 Şub 2019 21:26

Sub adsil()
Dim ad As Name
For Each ad In ThisWorkbook.Names
If ad.RefersToRange.Parent.Name = "Sayfa1" Then ad.Delete
Next
End Sub
Kullanıcı avatarı
Erkan Akayay
Site Dostu
 
Kayıt: 20 Ağu 2008 11:59
Konum: YALOVA
Meslek: Bilgi İşlem
Yaş: 49
İleti: 4027
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL

Cevap: Ad Tanımlama Silme

İleti#14)  feraz » 06 Şub 2019 22:43

Elinize sağlık Erkan hocam süpersiziniz [mersi] [mersi] [mersi] [mersi] şkşk şkşk şkşk şkşk --)( --)( --)(
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5769
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Cevap: Ad Tanımlama Silme

İleti#15)  feraz » 06 Şub 2019 22:44

feraz yazdı:Elinize sağlık Erkan hocam süpersiziniz [mersi] [mersi] [mersi] [mersi] şkşk şkşk şkşk şkşk --)( --)( --)(


Elinize sağlık Erkan hocam süpersiniz.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5769
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot, Yandex[Bot] ve 2 misafir

Bumerang - Yazarkafe