ceysuhan
Altın Üye
- Katılım
- 26 Ağustos 2004
- Mesajlar
- 43
- Excel Vers. ve Dili
- İşte Office 2013 Tr 64 bit
Evde Office 2019 Tr 64 bit
Sayfa adlarını her sayfanın a1 hücresinden alan yaklaşık 100 sayfalık bir dosyam var aşağıda makro ile sayfa adını a1 hücresinden aldırıyorum ama a1 hücresi boş ise diğer sayfalardan farklı bir isim alması için vba kodunda yazan sayfa numarasını isim olarak vermek istiyorum ???? yazdığım yere hangi kodu yazmam lazım yardımlarınız bekliyorum.
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Next1
If [A1] = Empty Then
ActiveSheet.Name = ????
End If
ActiveSheet.Name = [A1].Text
Next1:
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Next1
If [A1] = Empty Then
ActiveSheet.Name = ????
End If
ActiveSheet.Name = [A1].Text
Next1:
End Sub