DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Merhaba,
A,B,C diye giden sütunları adı,soyadı, gibi değiştirirsek hücre isimleri adı1,adı2, soyadı1,soyadı2 gibi değişmezmi hücre isimlerini böyle değiştirmek için ne yapmalıyız?
Değişmez. Birinci satıra siz isim vereceksiniz.
Bir hücre seçtiğinizde sayfanın sol üst köşesinde hücrenin adını görürsünüz. (A, B, C gibi sütun adlarının üstünde.)
Hücre adını gördüğünüz yere girin ve o hücreye vermek istediğiniz adı yazıp enterleyin.
Sub Isımlendir()
Dim x As Integer
Dim i As Integer
x = InputBox("Kaç satır isimlendirilecek ? ", "Satır Sayısı Girişi")
If x = Empty Then: Exit Sub
If IsNumeric(x) = False Then: Exit Sub
For i = 2 To x
With ActiveWorkbook
.Names.Add Name:="Adı" & i, RefersTo:="=" & ActiveSheet.Name & "!$A$" & i
.Names.Add Name:="Soyadı" & i, RefersTo:="=" & ActiveSheet.Name & "!$B$" & i
.Names.Add Name:="Şehir" & i, RefersTo:="=" & ActiveSheet.Name & "!$C$" & i
End With
Next i
End Sub
....... fakat formülü aşağı doğru kopyaladığımda hücre isimleri aynı kalıyor nukleer2+nukleer3 olacağına aynı kalıyor makroya bişey mi eklemek gerekir?