veri aktarma

Katılım
20 Şubat 2012
Mesajlar
150
Excel Vers. ve Dili
2007 türkçe
merhaba
ay(ocak şubat vb) sayfasından isim sayfalarına veriyi nasıl dağıtarak aktarabiliriz
yardımcı olabilir misiniz?
 

Ekli dosyalar

Katılım
20 Şubat 2012
Mesajlar
150
Excel Vers. ve Dili
2007 türkçe

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
5,801
Excel Vers. ve Dili
2019 Türkçe
Bütün aylar topluca mı eklenecek, yoksa her ayı tek tek mi eklemek istiyorsunuz. Yani her ay içinde buton olsun mu?
 

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
5,801
Excel Vers. ve Dili
2019 Türkçe
Module1 deki kodları silin aşağıdakileri ekleyin.

Kod:
Sub Aktar(ByVal syfAdi As String)
    Dim Bak As Range
    Dim Bul As Range
    Dim Alan As Integer
    For Each Bak In Worksheets(syfAdi).Range("A2:A" & Cells(Rows.Count, "A").End(3).Row)
        On Error GoTo SayfaBulunamadi
        With Worksheets(Bak.Text)
            Set Bul = .Range("A:A").Find(syfAdi)
            For Alan = 2 To 7
                Bul(1, Alan) = Bak(1, Alan)
            Next
        End With
    Next
    MsgBox "İşlem tammalandı."
    Exit Sub
SayfaBulunamadi:
    MsgBox "'" & Bak.Text & "' adlı sayfa bulunamıyor." & vbLf & "Sayfanın var olup olmadığını ve sayfa adını kontrol ediniz.", vbCritical
End Sub
 
Katılım
20 Şubat 2012
Mesajlar
150
Excel Vers. ve Dili
2007 türkçe
sayın dalgalıkur çok teşekür ederim, emeğinize ellerinize sağlık...
aklıma takıldığı için soruyorum aylar ve isimler iki farklı excel dosyasında veya klasörde olsaydı formülde nasıl bir düzenleme yapacaktık?
 
Son düzenleme:

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
5,801
Excel Vers. ve Dili
2019 Türkçe
Dosya adını belirtmemiz gerekir.
Eğer dosyalar açıksa aşağıdaki şekilde yapılabilir.
Yukarıdaki kodlarda bulunan iki satıra kırmızı alanların eklenmesi yeterli.

For Each Bak In workbook("ayların olduğu dosya adı.xlsx").Worksheets(syfAdi).Range("A2:A" & Cells(Rows.Count, "A").End(3).Row)


With workbook("isimlerin olduğu dosya adi.xlsx").Worksheets(Bak.Text)
 
Katılım
20 Şubat 2012
Mesajlar
150
Excel Vers. ve Dili
2007 türkçe
Dosya adını belirtmemiz gerekir.
Eğer dosyalar açıksa aşağıdaki şekilde yapılabilir.
Yukarıdaki kodlarda bulunan iki satıra kırmızı alanların eklenmesi yeterli.

For Each Bak In workbook("ayların olduğu dosya adı.xlsx").Worksheets(syfAdi).Range("A2:A" & Cells(Rows.Count, "A").End(3).Row)


With workbook("isimlerin olduğu dosya adi.xlsx").Worksheets(Bak.Text)
tekrar teşekkür ederim
 
Üst