Merhaba,
Soyle bir kod yarattim
Bu kod 4 farkli alanda 4 "Name" yaratiyo. fakat "Name Box" tan bu isimleri sectigim zaman herseferinde farkli hucreler gosteriyor. Kodda bir yanlislikmi var? Bunu nasil duzeltebilirim?
PS: Bu kod Workbook_open tarafindan cagriliyor
Soyle bir kod yarattim
Kod:
Sub ListInitializer()
Dim Source As Worksheet
Dim LastRow As Long
On Error GoTo SourceListNotFound
Set Source = Worksheets("SourceList")
On Error GoTo 0
Dim myLastRow As Long
LastRow = Source.Range("a65536").End(xlUp).Row
ActiveWorkbook.Names.Add Name:="HamList", RefersToR1C1:="=SourceList!R1C1:R" & LastRow & "C1"
myLastRow = Source.Range("c65536").End(xlUp).Row
ActiveWorkbook.Names.Add Name:="AmbList", RefersToR1C1:="=SourceList!R1C3:R" & myLastRow & "C3"
LastRow = Source.Range("e65536").End(xlUp).Row
ActiveWorkbook.Names.Add Name:="EbatList", RefersToR1C1:="=SourceList!R1C5:R" & LastRow & "C5"
LastRow = Source.Range("g65536").End(xlUp).Row
ActiveWorkbook.Names.Add Name:="KutuList", RefersToR1C1:="=SourceList!R1C7:R" & LastRow & "C7"
Exit Sub
SourceListNotFound:
MsgBox "SourceList doesn't exist"
Exit Sub
End Sub
Bu kod 4 farkli alanda 4 "Name" yaratiyo. fakat "Name Box" tan bu isimleri sectigim zaman herseferinde farkli hucreler gosteriyor. Kodda bir yanlislikmi var? Bunu nasil duzeltebilirim?
PS: Bu kod Workbook_open tarafindan cagriliyor