• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Veri Aktarımı

Katılım
15 Ekim 2011
Mesajlar
11
Excel Vers. ve Dili
2010
İyi Günler Arkadaşlar
"Veri" sayfasındaki C2 ve D2 satırını aynı şekilde E2 F2 G2 satrındaki gün ay yıl yazan verileri birleştirip tarih formatlı ve H2 I2 J2 satırındaki saat dakika saniye verilerinide birleştirip, "SAP" sayfasına bir buton yarıdımı ile sırasıyla
C2 - B2 ye
D2 - B3 ye
E2 F2 G2 Yİ birleştirip B4 e
H2 I2 J2 Yi birleştirip B5 e nasıl aktarabiliriz
 
Lütfen sorularınızı örnek dosya destekli sorarsanız daha hızlı cevap alırsınız.
 
Aşağıdaki kod ile aktarabilirsin. Veriniz tek satır olduğu için ne yapmak istediğiniz anlaşılmıyor.
Kod:
Sub aktar()
Dim sp As Worksheet, sv As Worksheet, a As Date, b, c
Set sp = Sheets("SAP")
Set sv = Sheets("Veri")
sp.Cells(2, "B") = sv.Cells(2, "B")
sp.Cells(3, "B") = sv.Cells(2, "C")
 a = sv.[D2] & "." & sv.[E2] & "." & sv.[F2]
 b = Format(sv.[G2], "00") & "." & Format(sv.[H2], "00") & "." & Format(sv.[I2], "00")
 c = Format(sv.[J2], "00") & "." & Format(sv.[K2], "00") & "." & Format(sv.[L2], "00")
sp.Cells(4, "B") = a
sp.Cells(5, "B") = b
sp.Cells(6, "B") = c
End Sub
 
Alternatif olarak;
Userform ile yapmak yerine Veri sayfasında istediğiniz satırda A sütununda ÇİFT TIKLAMA ile istediğiniz sonucu alabilirsiniz.
Aşağıdaki kodu "Veri" Sayfanızın sayfa kodu kısmına yazınız.
Kod:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim sp As Worksheet, sv As Worksheet, a As Date, b, c
Set sp = Sheets("SAP")
Set sv = Sheets("Veri")
If Intersect(Target, sv.Range("A2:A" & sv.Range("A" & Rows.Count).End(xlUp).Row)) Is Nothing Then Exit Sub
sp.Cells(9, "B") = sv.Cells(Target.Row, "P")
sp.Cells(10, "B") = sv.Cells(Target.Row, "Q")
sp.Cells(11, "B") = sv.Cells(Target.Row, "W")
 a = sv.Cells(Target.Row, "E") & "." & sv.Cells(Target.Row, "F") & "." & sv.Cells(Target.Row, "G")
 b = Format(sv.Cells(Target.Row, "H"), "00") & ":" & Format(sv.Cells(Target.Row, "I"), "00") & ":" & Format(sv.Cells(Target.Row, "J"), "00")
 c = Format(sv.Cells(Target.Row, "K"), "00") & ":" & Format(sv.Cells(Target.Row, "L"), "00") & ":" & Format(sv.Cells(Target.Row, "M"), "00")
sp.Cells(2, "B") = a
sp.Cells(3, "B") = b
sp.Cells(5, "B") = c
End Sub
Not: Sayın Vardar07' nin kodlarından yararlanılmış, ufak bir değişiklik yapılmıştır.
 
Son düzenleme:
aslında biraz düzenledim şu şekilde nasıl yapabiliriz. ComboBox1 de,"Veri" sayfasındaki sıra nodan bir sıra seçeyim ve o sıradakiler "SAP" sayfasına aktarsın

Verileri aktaralım da nasıl olacak ? Eklediğiniz son dosyaya göre hala açıklamalarınız eksik. Mesela SAP sayfasında Kesinti 1 , Kesinti 2 gibi sütunlar var veriler nerelere nasıl aktarılacak. Siz tam olarak ne yapmak istediğinizi açıkladığınız zaman sağlıklı bir çözüme ulaşılacak aksi takdirde yardımcı olacak arkadaşlar boşuna bir dünya kod yazacak. Size yardımcı olmak isteyenler için lütfen sizde yardımcı olup afaki değilde tam olarak ne yapmak istediğinizi belirtiniz.
 
Vardar07 üstad bir sayfayı diğer sayfaya aktaracağız ama aktarmak için sıra numarasını combobox ile seçip aktaralım istiyorum ben biraz düzenledim bakarmısınız. sadece comboboxla seçimi yapamadım gerisi doğru.

Yani kısaca bir sayfadaki veriyi sıra no'sunu combobox yardımı ile başka bir sayfadaki bir yere aktaralım. herşey doğru combobox ile yapamadım onu çözersek olacak sanırım

http://s3.dosya.tc/server9/oi0hiu/ni_Microsoft_Office_Excel_Calisma_Sayfasi.rar.html
 
Userform daki CommandButton1_Click kodlarını aşağıdaki ile değiştirip dener misiniz.
Kod:
Sub CommandButton1_Click()
Dim sp As Worksheet, sv As Worksheet, a As Date, b, c
Set sp = Sheets("SAP")
Set sv = Sheets("Veri")
sp.Range("B2:b22").Clear
x = ComboBox1.ListIndex + 2
sp.Cells(9, "B") = sv.Cells(x, "P")
sp.Cells(10, "B") = sv.Cells(x, "Q")
sp.Cells(11, "B") = sv.Cells(x, "W")
sp.Cells(13, "B") = sv.Cells(x, "X")
sp.Cells(17, "B") = sv.Cells(x, "O")
sp.Cells(18, "B") = sv.Cells(x, "S")
sp.Cells(19, "B") = sv.Cells(x, "T")
sp.Cells(21, "B") = sv.Cells(x, "V")
 a = sv.Cells(x, "E") & "." & sv.Cells(x, "F") & "." & sv.Cells(x, "G")
 b = Format(sv.Cells(x, "H"), "00") & "." & Format(sv.Cells(x, "I"), "00") & "." & Format(sv.Cells(x, "J"), "00")
 c = Format(sv.Cells(x, "K"), "00") & "." & Format(sv.Cells(x, "L"), "00") & "." & Format(sv.Cells(x, "M"), "00")
sp.Cells(2, "B") = a
sp.Cells(3, "B") = b
sp.Cells(5, "B") = c
End Sub
 
Son düzenleme:
oldu oldu üstad çok saol düzenleyip tekrar paylaşayım
 
Son düzenleme:
Ne hatası veriyor bilmiyorum ama bende normal çalışıyor. Üstteki kodu tekrar revize ettim inceleyin.
 
Formda çok sayıda örnek var "Arama " kısmında sayfa yazdırma diye aratıp konuları inceleyiniz. Yapamazsanız yeni bir konu ile yardım alabilirsiniz.
 
Geri
Üst