Otomatik sayfa olusturma ve veri transferi

[ege123]

c3 hucresinde yazan sayi kadar sirali olarak ornek1 ve ornek2 sayfasi olustur dedikten sonra a1 ve b1 verilerini sirasiyla ornek1 sayfasindaki a1 ve b1 hucresine a2ve b2 verilerini ornek2 deki a2 ve b2 hucrelerine nasil kopyalatabilirim tesekkur ederim
ege123 Çevrimiçi Kurallara Aykırı Mesajı Bildir

 

[YUSUF44]

Aşağıdaki makroyu bir modüle kopyalayıp deneyiniz:

Sub sayfaolustur()
Set s1 = Sheets(ActiveSheet.Name)
If IsNumeric(s1.[C3]) = False Then Exit Sub
If s1.[C3] = "" Then Exit Sub
If Int(s1.[C3]) <> s1.[C3] Then Exit Sub
For j = 1 To s1.[C3]
    Sheets.Add
    For i = 1 To Sheets.Count
        If Sheets(i).Name = "ornek" & j Then
            sayfa = "var"
            MsgBox "ornek" & j & " sayfası mevcut olduğundan yenisi oluşturulamadı"
            i = Sheets.Count
            ActiveSheet.Delete
        Else
            sayfa = "yok"
        End If
    Next
    If sayfa = "yok" Then
        ActiveSheet.Name = "ornek" & j
    End If
    ActiveSheet.[A1] = s1.[A1]
    ActiveSheet.[A2] = s1.[A2]
    ActiveSheet.[B1] = s1.[B1]
    ActiveSheet.[B2] = s1.[B2]
Next
MsgBox "İŞLEM TAMAMLANDI"
End Sub