Sheet kopyala isim ver

[vivident]

Merhaba

Ekteki dosyada ;
"parçalar" sheetinin A sütununda "X" varsa "XXX" sheetini kopyala ve ismini "parçalar" shettinin B sütünunda yazan ismi ver (rakam:1,2,3...vb)

"parçalar" sheetinin A sütununda "XL" varsa "XXX-Link" sheetini kopyala ve ismini "parçalar" shettinin B sütünunda yazan ismi ver (rakam:1,2,3...vb)

Eğer aynı isimli sheet varsa kopyalama işlemi yapma. Belli noktaya geldim takıldım, XXX veya XXX-Link sayfalarını kopyalamıyor. Makro kaydet ile yaptım, aynı kodları kullandım, yine olmadı.

Dosyam ektedir

Sub ButtonII()
Dim ad As String, i As Integer, bulundu As Boolean, a As Long
    For a = 4 To Range("a65536").End(3).Row
    bulundu = False
    ad = Sheets("PARCALAR").Cells(a, "b").Value
100 For i = 1 To Worksheets.Count
    If CStr(Sheets(i).Name) = CStr(ad) Then
    bulundu = True
    End If
    Next i
    If bulundu = False Then
    If Sheets("PARCALAR").Cells(a, "a").Value = "X" Then
    Sheets("XXX").Copy After:=Sheets(1)
    ActiveSheet.Name = CStr(ad)
    Else
    Sheets("XXX-Link").Copy After:=Sheets(1)
    ActiveSheet.Name = CStr(ad)
    End If
    GoTo 100
    End If
    Next a
ad = vbNullString
i = Empty: a = Empty
End Sub

 

[vivident]

Arkadaşlar problemi çözdüm, fakat aynı konuda farklı bir modif isteğim olacak

Benim istediğim kaç adet XXX" sheeti ve kaç adet XXX-Link sheeti oluşturuldu bunu saptayarak, msgbox ile bildirmesi, yardımcı olursanız memnun olurum

 

[mydestek]

If Sheets("PARCALAR").Cells(a, "a").Value = "X" Then
sx = sx+1

şeklinde bir artı değer artıracak bir satır eklemelisin.
son kısmıda MsgBox sx şeklinde yazdığınızda X sayfa adeti yazar.

 

[vivident]

sayın mydestek teşekkürler, dediğiniz yol ile sorun çözüldü.

Yalnız benim anlamadığım bir nokta var. Ben kodları "PARCALAR" Sheetine eklediğim buton ile çalıştırıyorum, Şimdi butonu farklı bir sheete ekledim. Kodlarım Modülde olmasına rağmen çalışmadı. Adresler doğru, herşey doğru

Buton sadece "PARCALAR" sheetin iken çalışıyor. Saçma değil mi bu. Nasıl çözeriz bu problemi

 

[vivident]

sayın mydestek teşekkürler, dediğiniz yol ile sorun çözüldü.

Yalnız benim anlamadığım bir nokta var. Ben kodları "PARCALAR" Sheetine eklediğim buton ile çalıştırıyorum, Şimdi butonu farklı bir sheete ekledim. Kodlarım Modülde olmasına rağmen çalışmadı. Adresler doğru, herşey doğru

Buton sadece "PARCALAR" sheetin iken çalışıyor. Saçma değil mi bu. Nasıl çözeriz bu problemi

Kafam çok dalgın, hataları kaçırıyorum. Sayfa ismi yazmamışım. Ondan kod çalışmıyor
For a = 4 To Range("a65536").End(3).Row
For a = 4 To Sheets("PARCALAR").Range("a65536").End(3).Row