[ÇÖZÜLDÜ] Toplu alan adı belirleme

[Milady Meriç]

Hocalarım saygılar;

Ekte detaylı olarak anlattığım toplu alan adı belirlemeye dair bir sorum var.

yardımcı olursanız çok sevinirim. Saygılar.

 

[uzmanamele]

Merhaba

Bu işinizi görür mü?

Sub alanadi()
EndColumn = [a1].End(xlToRight).Column
For i = 1 To EndColumn
EndRow = Cells(65536, i).End(3).Row
ActiveWorkbook.Names.Add Name:=Cells(1, i).Text, _
    RefersTo:=Sheets("Sheet1").Range(Cells(1, i), Cells(EndRow, i))
Next
End Sub

Sub ad_sil()
On Error Resume Next
EndColumn = [a1].End(xlToRight).Column
For i = 1 To EndColumn
ad = Cells(1, i).Text
ActiveWorkbook.Names(ad).Delete
Next
End Sub

 

[Milady Meriç]

Sayın Uzmanamele;

Siz yapacaksınız ve iş görmeyecek ? sizce mümkün mü?

Çok teşekkürler; saygılar, sevgiler, hörmetler .......vsvs.vs.vs.vs...

 

[assenucler]

Sayın frksdf Sayın Uzmanamele üstadımızın yazdığı kodların uygulanmış şeklini içeren dosyanızın son halini ekleyebilir misiniz?

Emek ve katkı veren dostlara teşekkürler.