Verİ Aktarma

[ORHAN19871995]

Ekte göndermiş olduğum KİTAP 1 excel sayfasının GENEL sayfasındaki 1 nolu bayi ve 2 nolu bayiye ait bilgilerin ilgili 1 nolu bayi ve 2 nolu bayi sayfalarına ayrı ayrı olarak aktarılması hakkında yardımlarınıza ihtiyacım var.Bilgilendirme yapacak arkadaşlara Teşekkür ederim.

 

[uzmanamele]

merhaba
aşağıdaki linkde syn Ali'nin çözümünü inceleyin

http://www.excel.web.tr/showthread.php?t=51401

 

[Ömer]

Merhaba,

Örnek dosyayı incelermisiniz..

 

[Orion1]

Dosyanız ekte.

Sub aktar()
Sheets("GENEL").Select
Dim syf As Worksheet, sat As Long, i As Long
Application.ScreenUpdating = False
For Each syf In Worksheets
    If IsNumeric(Left(syf.Name, 1)) Then
        syf.Range("A2:R" & syf.Cells(65536, "B").End(xlUp).Row).ClearContents
        sat = 2
        For i = 2 To Cells(65536, "B").End(xlUp).Row
            If Cells(i, "B").Value = syf.Name Then
                syf.Range(syf.Cells(sat, "B"), syf.Cells(sat, "R")).Value = _
                Range(Cells(i, "B"), Cells(i, "R")).Value
                sat = sat + 1
            End If
        Next i
    End If
Next syf
Application.ScreenUpdating = True
MsgBox "Aktarma işlemi tammalandı..!!", vbOKOnly + vbInformation, Application.UserName
End Sub