Veri aktarma

[buseen]

arkadaşlar banka ekstresini sayfa 1 deki A9 DAN K9 satırına kadar olan kısımları blok sayfalarına nasıl aktara bilirim bilgileri sayfa ismi yok sa nasıl açılabilir

 

[N.Ziya Hiçdurmaz]

yanıt

Sub sayfaacaktar()
Application.DisplayAlerts = False
    For i = Sheets.Count To 1 Step -1
        If Sheets(i).Name <> Sheets("Sayfa1").Name Then
            Sheets(i).Delete
        End If
    Next
Application.DisplayAlerts = True
    For i = 1 To Sheets.Count
    For sat = 10 To Sayfa1.Cells(65536, "f").End(xlUp).Row
        If WorksheetFunction.CountIf(Sayfa1.Range("f1:f" & sat), Sayfa1.Cells(sat, "f")) = 1 Then
            Worksheets.Add after:=Worksheets(Worksheets.Count)
            ActiveSheet.Name = Sayfa1.Cells(sat, "f").Value
        End If
    Next
    Next
    son = Cells(65536, "a").End(xlUp).Row
    For i = 1 To Sheets.Count
    For sat = 10 To Sayfa1.Cells(65536, "f").End(xlUp).Row
        If Sheets(i).Name = Sayfa1.Cells(sat, "f").Value Then
            Sayfa1.Cells.Copy Sheets(i).[a1]
        End If
    Next
    Next
    
    For i = 1 To Sheets.Count
    For sat = Cells(65536, "f").End(xlUp).Row To 10 Step -1
        If Sheets(i).Name <> Sheets(i).Cells(sat, "f").Value And Sheets(i).Name <> Sayfa1.Name Then
            Sheets(i).Cells(sat, "f").EntireRow.Delete
        End If
    Next
    Next
End Sub

 

[buseen]

emeklerin için teşekkürler

 

[buseen]

formül ile yapmak mümkümmüdür

 

[N.Ziya Hiçdurmaz]

Otomatik sayfa ismi açmak için. vba gerekir.

 

[buseen]

açtıktan sonra hocam

 

[buseen]

blok sayfalarına kopyalamak için formül

 

[muygun]

Merhaba;
Syn. N.Ziya Hiçdurmaz'ın çözümü isteğinizi karşılıyor. (bence bu örneği kullanın.)
Ama Sayfa1 sayfasında B:K aralığındaki verilerinizi siliyor ve yerine başkalarını yazıyorsanız eki deneyin. (zaten sayfa1 temizlenerek yeni veri girişi yapılıyorsa formülle sonuç almak mümkün değil)
İyi çalışmalar.

 

[buseen]

yok hocam sayfa1 veiler sabit he ay ektre alınca alta dogru ilave olacak
benim istediğim tam sizin yaptıdınız gibi 1 blokta 8 daire var 21 blok var hocam
baya kalabalık yani
banka ekstresi he ay sonu excel olarak sayfa 1 deki gibi geliyor

 

[buseen]

benim istedigim sayfa 1 deki bilgileri blok sayfalarına gönderme
İLGİNİZ İÇİN TEŞEKKÜRLER

 

[muygun]

Merhaba;

Blok sayfalarını açtığınız sürece 8 nolu mesaj eki istediğinizi yapacaktır. (sayfaları manuel olarak açın)
Bunun dışında tablodan istediğiniz ne?
Ayrıca her ay gelenleri tek sayfada toplarsanız tek bir sayfa yada aynı sayfada arama motoru ile istenilen süzme gerçekleştirilebilir. (Yani tüm verilerin olduğu bir data sayfası ve bu verilerin istenilen kritere göre tasniflendiği süzme sayfası... 2 yada 3 sayfa yeterli)

 

[buseen]

acılan blok sayfaları 8 ci satıra kadar sabit bilgiler yazacam hocam onsan sonraki formül leri coğaltacam hocam tşk

 

[buseen]

aynı blok 12 ayda 12 defa para yatıracak her ay

 

[muygun]

Merhaba;
Tüm veriler data sayfasına alt alta ilave ediliyorsa eki deneyin.
Not: ilk 8 satıra ne tür sabit bilgi yazacaksanız bunuda bir sayfada belirler ve düzenlerseniz blok ve daire no'suna göre istenilen veri ilk 8 satıra çekilebilir.
İyi çalışmalar.

 

[buseen]

sayın muygun tşk