Mevcut Excel Şablonuna Veri Aktarımı Hakkında

Excel hakkındaki soru ya da paylaşımlarınıza kategori bulamadıysanız bu alana yazabilirsiniz.

Mevcut Excel Şablonuna Veri Aktarımı Hakkında

İleti#1)  alemciler » 07 Haz 2018 20:51

Örnek dosyada olduğu gibi bir adet veri girişi ve bir adet verilerin aktarılacağı şablon mevcut. Yapmaya çalıştığım şablonu bozmadan veri sayfasındaki verileri satı satır alıp şablon üretmek. Veri girişi alanı örnekte kısa tutulmuştur. Binlerce satırı bu şekilde şablona uygun alanlarına aktarıp aktarılanları kaydetmenin kolay bir yolu var mıdır?
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
alemciler
Yeni Başlamış
 
Adı Soyadı:Ali Çetin
Kayıt: 14 Kas 2011 17:30
Konum: Serbest Muhasebeci
Meslek: İş Arıyor
Yaş: 32
İleti: 64
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: antalya

Cevap: Mevcut Excel Şablonuna Veri Aktarımı Hakkında

İleti#2)  muhammedyuksel » 08 Haz 2018 01:16

Merhaba Ali bey, örnek bir kod gönderiyorum benim de çok fazla bilgim yok ama basit bir şekilde yapabildiğim bu kadar oldu. Örnek dosya da ekte mevcut.
Kod: Tümünü seç
Sub Makro1()
Dim şablon As Worksheet
Set şablon = Sheets("Şablon")
Dim veri As Worksheet
Set veri = Sheets("Verigirişi")
Dim sonsayı As Integer
sonsayı = veri.Range("A1048576").End(xlUp).Row

For x = 2 To sonsayı
    şablon.Select
    şablon.Copy After:=Sheets(2)
    Sheets("Şablon (2)").Select
    Sheets("Şablon (2)").Name = veri.Range("A" & x).Value
    Range("F8") = veri.Range("A" & x).Value
    Range("G11") = veri.Range("B" & x).Value
    Range("G12") = veri.Range("C" & x).Value
    Range("G13") = veri.Range("D" & x).Value
    Range("G14") = veri.Range("E" & x).Value
    Range("G15") = veri.Range("F" & x).Value
    Range("G16") = veri.Range("G" & x).Value
    Range("G17") = veri.Range("H" & x).Value
    Range("G18") = veri.Range("I" & x).Value
    Range("G19") = veri.Range("J" & x).Value
    Range("G20") = veri.Range("K" & x).Value
    Range("A1").Select
Next
End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
muhammedyuksel
 
Kayıt: 04 Haz 2018 22:02
Meslek: Memur
Yaş: 26
İleti: 5
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Yozgat

Cevap: Mevcut Excel Şablonuna Veri Aktarımı Hakkında

İleti#3)  alemciler » 19 Haz 2018 20:40

Çok teşekkür ederim. Yoğunluktan ve aciliyetden dolayı başka yoldan çözmek zorunda kalınca açtığım konuya anca geri dönebildim.Aradığım tam olarak buydu. Eline sağlık.
Kullanıcı avatarı
alemciler
Yeni Başlamış
 
Adı Soyadı:Ali Çetin
Kayıt: 14 Kas 2011 17:30
Konum: Serbest Muhasebeci
Meslek: İş Arıyor
Yaş: 32
İleti: 64
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: antalya


Forum Diğer Excel İşlemleri

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe