veri aktarma

[eseseski]

merhaba
ay(ocak şubat vb) sayfasından isim sayfalarına veriyi nasıl dağıtarak aktarabiliriz
yardımcı olabilir misiniz?

 

[Muzaffer Ali]

Merhaba.
Dosyanız ekte.

https://www.dosya.tc/server22/i3sp77/VERI_AKTAR.xlsm.html

 

[eseseski]

Merhaba.
Dosyanız ekte.

https://www.dosya.tc/server22/i3sp77/VERI_AKTAR.xlsm.html

sayın dalgalıkur öncelikle ilginize ve yardımınıza teşekür ederim
fakat eklediğiniz dosya işlemi yapmıyor şöyleki ocak ayına kişinin karşılığındaki test yazdığınız yeri değiştirdiğimde aktarma işlemini yapmıyor girdiğim veriyi de değiştirip hücreyi eski haline(test yazıyor)getiriyor.

 

[eseseski]

Merhaba.
Dosyanız ekte.

https://www.dosya.tc/server22/i3sp77/VERI_AKTAR.xlsm.html

sayın dalgalı kur
çalışmamasının sebebini buldum
işlemi tersten yapıyor
benim istediğim tam tersi ocak sayfasındaki verileri kişilerin sayfasına dağıtacak

 

[Muzaffer Ali]

Bütün aylar topluca mı eklenecek, yoksa her ayı tek tek mi eklemek istiyorsunuz. Yani her ay içinde buton olsun mu?

 

[eseseski]

Bütün aylar topluca mı eklenecek, yoksa her ayı tek tek mi eklemek istiyorsunuz. Yani her ay içinde buton olsun mu?

her ay için buton olacak

 

[Muzaffer Ali]

Module1 deki kodları silin aşağıdakileri ekleyin.

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

 

[eseseski]

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?

 

[Muzaffer Ali]

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)

 

[eseseski]

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