Günlük N2 değeri ile çal.sf.sı varsa sil, tsb sf.sını bu değer ile yeniden kopyala

[hsayar]

Aşağıdaki kodalar ile tsb adlı çalışma sayfamı n2 de yazan tarihi ggaayy formatına çevirerek yeni çalışma sayfasına kopyalıyorum.

Sub sfeklead()
Set s1 = Sheets("günlük")
Set s2 = Sheets("tsb")
Set s3 = Sheets("devirler")
a = WorksheetFunction.Text(s1.Cells(2, 14), "ddmmyy")
'MsgBox a
    'Sheets("tsb").Copy 'yeni kitaba kopyalıyor
    Sheets("Tsb").Select
    Sheets("Tsb").Copy Before:=Sheets(1)
    ActiveSheet.Name = a
End Sub

Ancak istediğim
Mesala Günlük!n2= 28/09/2007
sayfa adı = 280907

O çalışma kitabında 280907 adlı çalışma sayfası var ise
bu sayfa silinecektir eminmisiniz diye soracak
evet cevabıyla çs sını silip tekrar tsb!n2 değeri ile ile yeniden kopyalayacak
hayır cevabıyla işlemi kesecek

 

[Ferhat Pazarçevirdi]

Kodunuzu aşağıdaki gibi değiştirin.

Option Explicit
Sub sfeklead()
Dim s1 As Worksheet, s2 As Worksheet, s3 As Worksheet
Dim a As String
Dim i As Integer
Dim Cevap
Set s1 = Sheets("günlük")
Set s2 = Sheets("tsb")
Set s3 = Sheets("devirler")
a = WorksheetFunction.Text(s1.Cells(2, 14), "ddmmyy")
For i = 1 To Sheets.Count
    If Sheets(i).Name = a Then
       Cevap = MsgBox("Varolan sayfa silinsin mi?", vbYesNo, "UYARI")
       If Cevap = vbYes Then
          Application.DisplayAlerts = False
          Sheets(i).Delete
          Application.DisplayAlerts = True
          Exit For
       Else
          Set s1 = Nothing: Set s2 = Nothing: Set s3 = Nothing: Exit Sub
       End If
    End If
Next i
Sheets("Tsb").Select
Sheets("Tsb").Copy Before:=Sheets(1)
ActiveSheet.Name = a
End Sub

 

[hsayar]

teşekkür eder, saygılar sunarım.
araya küçük bir ilave ile çalışma sayfasının adını gösterip hata olasılığını kaldırdım. belki bunu isteyen arkadaşlara örnek olur.

Sub sfeklead()
Dim s1 As Worksheet, s2 As Worksheet, s3 As Worksheet
Dim a As String
Dim i As Integer
Dim Cevap
Set s1 = Sheets("günlük")
Set s2 = Sheets("tsb")
Set s3 = Sheets("devirler")
a = WorksheetFunction.Text(s1.Cells(2, 14), "ddmmyy")
For i = 1 To Sheets.Count
    If Sheets(i).Name = a Then
       Cevap = MsgBox("Varolan " & a & " sayfası silinsin mi?", vbYesNo, "UYARI")
       If Cevap = vbYes Then
          Application.DisplayAlerts = False
          Sheets(i).Delete
          Application.DisplayAlerts = True
          Exit For
       Else
          Set s1 = Nothing: Set s2 = Nothing: Set s3 = Nothing: Exit Sub
       End If
    End If
Next i
Sheets("Tsb").Select
Sheets("Tsb").Copy Before:=Sheets(1)
ActiveSheet.Name = a
End Sub

 

[hsayar]

hata derken tarihi düzeltmeyi unutmuşuzdur 300907 ise yanlış dosyayı silmemek için

 

[hsayar]

Sheets("Tsb").Select
Sheets("Tsb").Copy After:=Sheets(sn)
ActiveSheet.Name = a

kopyalanan sayfayı Çalışma kitabınının sonuna taşır
ben zor buldum neden sonra makro ile sona taşı demek geldi aklıma