hem sayfa adına hem hücreye göre aktar

[aydgur]

İyi tatiller ! A sütunundaki sayfa adlarına göre B-O arası bilgileri aktarabiliyorum.Aynı şekilde sayfa adına göre değilde E sütununda NAKİT yazıyorsa o satırdaki G-L arası bilgileri NAKİT saysayfasına aktarsın istiyorum.
Yani sayfalara aktar makrosunu E sütununda NAKİT yazıyorsa tıpkı sayfalara aktar makrosu gibi E sütununda her NAKİT kelimesini bulduğunda o satırı NAKİT sayfasına katarsın istiyorum.

 

[Orion1]

Aşağıdaki kodları kullanınız.

Sub aktar()
Application.ScreenUpdating = False
Sheets("NAKİT").Range("A1:F65536").ClearContents
For i = 1 To Cells(65536, "E").End(xlUp).Row
    If UCase(Replace(Replace(Cells(i, "E").Value, "ı", "I"), "i", "İ")) = "NAKİT" Then
        sat = sat + 1
        Sheets("NAKİT").Range(Sheets("NAKİT").Cells(sat, "A"), Sheets("NAKİT").Cells(sat, "F")).Value = _
        Range(Cells(i, "G"), Cells(i, "L")).Value
    End If
Next i
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı..!!"
End Sub

 

[aydgur]

Sub sontamam()
Sheets("ANASAYFA").Select
For x = 2 To [A65536].End(3).Row
Set s2 = Sheets(Cells(x, 1).Text)
sira = s2.[A65536].End(3).Row + 1
If s2.Name <> "stok" Then
For y = 1 To 9
s2.Cells(sira, y) = Cells(x, y + 1)
Next y
Else
For y = 1 To 110
s2.Cells(sira, y) = Cells(x, y + 1)
Next y
End If
Next x
Sheets("ANASAYFA").Select
Range("A2:H80").ClearContents
Range("J2:J80").ClearContents
Range("N2F80").ClearContents
Range("B2:B80").Value = CDate(Format((Date + 1), "dd.mm.yyyy"))
10 MsgBox "CARİLERE AKTARILDI"
End Sub
Bu kodda sadece stok sayfasına ANASAYFA daki bilgileri aktarılırken sayfa adlarıda aktarılabilirmi(diğer sayfalara eslisi gibi aktarılacak).
Birde ekli dosyadaki ricam var..

 

[aydgur]

Sn.Gizlen şöyle bir ricam var:ANASAYFA nın F sütununda NAKİT kelimesini bulunca her bulduğu NAKİT satırı için
ANASAYFA nın B sütununu NAKİT sayfasının A sütununa
ANASAYFA nın D sütununu NAKİT sayfasının B sütununa
ANASAYFA nın F sütununu NAKİT sayfasının C sütununa
ANASAYFA nın J sütununu NAKİT sayfasının D sütununa
3.satırdan itbaren aktarsın istiyorum,değerli yardımlarınız için teşekkür ederim.