yazdığım isime göre çalışma sayfasına kaydetme

[gurkanakinci]

http://http://s3.dosya.tc/server28/ViapXV/Ads_z.png.html
Selamlar. müşteri hesaplarını tuttuğum çalışma sayfamda her müşteriye ayrı sayfam var. yapmak istediğim; müşterilerin aldıkları ürünleri tek tek müşteri sayfasına girip işlemek yerine, farklı bir sayfada yazıp, yazdığım isme göre sayfasına kaydolmasını istiyorum. mümkün müdür? teşekkürler...

 

[turist]

Foruma hoşgeldiniz.
Eklediğiniz link açılmıyor.(Resim olarak değil, dosya olarak eklemelisiniz)
Örnek excel dosyanızı, GOOGLE DRIVE, YANDEX DISK, DOSYA.TC ,DOSYA.CO gibi dosya paylaşım sitelerine ekleyip linkini burada bildirirseniz yardım almanız daha kolay olur.

 

[gurkanakinci]

peki dosya olarak göndereyim

 

[gurkanakinci]

hangi uzantıda göndermem gerekir düzgün açılması için

 

[gurkanakinci]

http://

 

[gurkanakinci]

sayfa başındaki 'akkardeşler' ortak olacaktı silmeyi unutmuşum. kafanızı karıştırmasın saygılar

 

[Emir Hüseyin Çoban]

. . .

Sub Kod()
    Application.ScreenUpdating = False
    Dim SO As Worksheet: Set SO = Sheets("ORTAK")
    Dim Sayfa As String
    
    If ActiveSheet.Name <> "ORTAK" Then Exit Sub
    sonsat1 = SO.Cells(Rows.Count, "M").End(3).Row
    If sonsat1 < 7 Then sonsat1 = 7
    For a = 7 To sonsat1
        Sayfa = SO.Cells(a, "M")
        If Not SayfaVarMi(Sayfa) Then
        Else
            sonsat2 = Sheets(Sayfa).Cells(Rows.Count, "A").End(3).Row + 1
            If sonsat2 < 7 Then sonsat2 = 7
            SO.Range("A" & a & ":M" & a).Cut Sheets(Sayfa).Cells(sonsat2, "A")
            Application.CutCopyMode = False
        End If
    Next a
    
    Application.ScreenUpdating = True
    MsgBox "B i t t i "
End Sub

Function SayfaVarMi(Sayfa As String) As Boolean
    On Error Resume Next
    SayfaVarMi = CBool(Len(Worksheets(Sayfa).Name) > 0)
End Function

. . .