Koşullu Sekme Kopyalama

[mrwarrior]

Benim istediğim makro çalıştığında A1 hücresindeki isimde sayfa adı varsa onu açması ,yoksa Şablon isimli sekmeyi kopyalayıp onun ismini A1 hücresindeki kelimeyi vermesini istiyorum.

Şimdiden teşekkürler. Meb interneti kullandığım için sonucu gece verebilirim

 

[mrwarrior]

Public Sub SayfaOlustur()
For i = 1 To Sheets.Count
    If Sheets(i).Name = Sheets(1).[E3] Then Buldum = 1
Next i
If Buldum <> 1 Then
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Name = Sheets(1).[E3]
    Sheets(1).Select
End If
    
End Sub

kendi soruma sayfalarda cevap buldum genede teşekkürler

 

[mrwarrior]

Private Sub CommandButton1_Click()
For i = 1 To Sheets.Count
    If Sheets(i).Name = ComboBox1.Value Then
    buldum = 1
    Sheets(i).Select
    GoTo buraya
    Else
    buldum = 0
    End If
Next
buraya:
If buldum = 0 Then
Sheets("Şablon").Copy After:=Sheets(4)
ActiveSheet.Name = ComboBox1.Value
End If
    
End Sub

Benimki de benim istediğimdi