Veri aktarma kodları

[xlsx]

Arkadaşlar ekli dosyadaki sheet1 verisini sheet2deki hazır şablona aktarmak istiyorum.
Sheet1 verisini başka bir program aracılıgıyla alıyorum ve sheet2deki hazır formata uydurmak istiyorum.
Makroyu çalıştırdığımda sheet1deki değerler şablondaki değerlerin doğru hücrelerine aktarsın.
Yardımcı olursanız sevinirim.(Kod bilgisini mesajınıza ekleyebilir misiniz?)

not :aslında programdaki değerler tam anlamıyla şablondaki isimlerle uyuşmuyor benzer isimler ama vlookup yapıldığında şablondaki verilerin aynısıyla da değiştirmek zorunda kalıyorum.Programdaki isimler sabit şablondaki isimler sabit.ama şablondaki bu isimleri değiştirmem lazım.Kodlara bunları da ekleyebilirsem tam olacak.

 

[mami68]

Kontrol edermisiniz.

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub AKTAR()
    Dim S1 As Worksheet, S2 As Worksheet
    Dim X As Long
    Dim Bul As Range
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    
    S2.Select
    
    For X = 2 To [A65536].End(3).Row Step 4
        If Cells(X, 1) <> Empty Then
            Set Bul = S1.[A:A].Find(Cells(X, 1))
            If Not Bul Is Nothing Then
                Range("C" & X + 1 & ":H" & X + 3).Value = S1.Range("C" & Bul.Row + 1 & ":H" & Bul.Row + 3).Value
            End If
        End If
    Next
    
    Set Bul = Nothing
    Set S1 = Nothing
    Set S2 = Nothing
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[qwasque]

Şartlı veri aktarma

Arkadaşlar bana tamda buna göre birşey lazımdı
Fakat burada veri aktarmayı belirli bir şarta bağlı sekilde yapabileceğim hale getirebilir misiniz?
Sizden istediğim makrolarda yeni olduğum için ve bana tam gereken şartların hepsini sizlerin yerine getirmesi mümkün olmadığı için bunu Mami68 seklinde sadece ek satırlarla yazabilirmisiniz.

 

[xlsx]

Selam, Kodlar için tşk.Ancak sayfa1deki veri isimleri farklıysa ya da sayfa2deki verileri aktarmaması gerekiyor.Vlookup gibi.sayfa1deki isimler sayfa2de varsa aktarmalı.

 

[Korhan Ayhan]

Selamlar,

Önerdiğim kodda nasıl bir problem yaşadınız ?

Kod Sayfa2 deki verileri döngüye alıp Sayfa1 de arıyor ve bulduğunda bilgileri aktarıyor. Siz farklı bir aktarım şeklimi istiyorsunuz.

 

[xlsx]

Sayın Korhan Slm,
Benim eksik bilgilendirmemden kaynaklı.Sheet1de Kalem'in altında yeralan İl bilgileri de değişken olabiliyor.Bazen sadece İzmir'in verisi oluyor bazen de sadece 2 il bazen de 2 il birden ve il isimleri değişebiliyor.(İl isimleri değişirse şablona dahil ediyorum manuel olarak)
Yardımınız için tşk

 

[Korhan Ayhan]

Selamlar,

Bu durumda A sütunundaki biçimlendirmeleri kullanıyorsanız bu biçimlendirme kullanılarak çözüme gidilebilir. Biçimlerden kastım ürünler sola hizalı iller ise sağa hizalı durumdalar. Eğer tüm verilerde bu durum söz konusu ise bu kullanılabilir.

Başka bir alternatifte boş bir sayfaya iller listelenerek aktarım kodunda bu sayfadan faydalanılabilir. Tercih sizin hangi yöntemi kullanmayı isterseniz kodu ona göre düzenleyebiliriz.

 

[xlsx]

Selamlar,

Bu durumda A sütunundaki biçimlendirmeleri kullanıyorsanız bu biçimlendirme kullanılarak çözüme gidilebilir. Biçimlerden kastım ürünler sola hizalı iller ise sağa hizalı durumdalar. Eğer tüm verilerde bu durum söz konusu ise bu kullanılabilir.

Başka bir alternatifte boş bir sayfaya iller listelenerek aktarım kodunda bu sayfadan faydalanılabilir. Tercih sizin hangi yöntemi kullanmayı isterseniz kodu ona göre düzenleyebiliriz.

Slm Sn Korhan

Ürünler Sola Hizalı, İller ise sağa hizalı olarak kullanılıyor.Yardımınız için tşk.