Makro ön listede yazılan isme göre diğer dosyanın kopyasını oluşturma

[erenkahya]

Merhaba

Müşteriler ve Yeni_cari dosyam sabit kalacak
Müşteriler dosyamın sayfa adı bölümüne yazdığım her yeni isim için YENİ_CARİ isimli dosyamdan sonra kopya oluşturulması gerekiyor.
Oluşturulan dosyanın adı ( müşteriler - sayfa adına ) her yeni eklediğim isim için şartı ile olması lazım.
Müşteriler dosyama yazdığım isimde her kopyada otomatik Mor renkli alana eklenebilirse sevinirim.

yardımcı olabilir misiniz rica etsem

 

[AdemCan]

Merhaba, müşteriler sayfasının kod bölümüne ekleyin, B sütununa yazılan isimleri kontrol eder ve yeni cari sayfasını kopyalar.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim isim As String, sayfa As Worksheet, s As Byte
If Selection.Count > 1 Then Exit Sub
    If Target.Row > 4 And Target.Column = 2 Then
        isim = Target.Value
        For Each sayfa In Worksheets
            If isim = sayfa.Name Then
                MsgBox isim & " sayfası mevcut olduğu için işlem sonladırıldı.", vbInformation, ""
                GoTo bitir
            End If
        Next
        s = Worksheets.Count
        Sheets("YENİ_CARİ").Copy After:=Sheets(s)
        With ActiveSheet
            .Name = isim
            .Range("A1") = isim
        End With
    End If
bitir:
End Sub

 

[erenkahya]

çok teşekkür ediyorum sayenizde dosyamın bir eksiğini daha tamamladım

 

[AdemCan]

Rica ederim.