Excel sayfamda A1 den A200 e kadar 200 adet isim var ve ben her hücre adına sekme açmak ve bunların isimlerini de hücreden almasını istiyorum
Ustalardan rica ediyorum.
Sub sayfa_ac()
Dim i As Integer, S1 As Worksheet, syf As String
Set S1 = Sheets("Sayfa1")
Application.ScreenUpdating = False
For i = 1 To S1.Cells(Rows.Count, "A").End(xlUp).Row
syf = S1.Cells(i, "A")
If Not varmi(syf) Then
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = syf
End If
Next i
S1.Select
End Sub
Function varmi(adi As String) As Boolean
On Error Resume Next
varmi = CBool(Len(Worksheets(adi).Name) > 0)
End Function
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.