• DİKKAT

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

VERİ AKTARMA MAKROSU

S

serkan guvenc

Altın Üye
Katılım
21 Kasım 2013
Mesajlar
47
Excel Vers. ve Dili
2007
Hocalarım bir kitapta veri ve sonuç diye 2 sayfa var.
sonuç kısmındaki verileri satır satır veri kısmına atmam gerekiyor.
örnek sonuç sayfasındaki D4 = Veri sayfasında a2 yazılacak
SONUÇ D6 VERİ B2
SONUÇ F6 VERİ C2
SONUÇ B7 VERİ D2
SONUÇ C7 VERİ E2
SONUÇ D7 VERİ F2
SONUÇ E7 VERİ G2
SONUÇ F7 VERİ H2
şeklinde veri kısmında yazarken üstteki satır dolu ise bir alttaki yazmasını istiyorum.
nasıl yapabilir yardımcı olurmusunuz.
veri sayfasında en fazla 25 satır oluyor.ve sadece dolu satırlar sonuç kısmına aktarılması gerekli
bu konuda yardımcı olacak hocalarıma şimdiden teşekkür ederim
 
Örenk dosya yüklerseniz daha hızlı ve doğru yanıt alırsınız.
Aşağıdaki linke örnek dosyayanızı yükleyip linkini paylaşabilirsiniz.:cool:

DOSYA YUKLE
.
 
Bana aktarmak istediğiniz sütunları yanlış belirtmişsiniz gibi geliyor.
Tekrar kontrol ediniz.Yaptıktan sonra bir daha geri dönmem.:cool:
 
#1 nolu mesajda aktarılacak yerleri yazmışsınız.Bunlar doğrumu?
 
evet hocam doğru .en üstten başlayacağız..sonuç kısmına kayıt yapıldıkça veri sayfasındaki boş satıra kaydedilecek.
 
Söylediklerinizle dosyadaki durumlar çelişiyor.
Bu konudan çekiliyorum.
Başka arkadaşlardan yardım alınız.:cool:
 
Yada ben tam konuyu anlamadım daha doğrusu.Uğraşayım biraz daha.:cool:
 
size zahmet, sonuç kısmına yazılan veriler makro yardımıyla veri kısmına kayıt olacak.Aktarılan datalar veri sayfasında ilk boş satırdan belirtilen sıra ile kaydedilecek.Bu benim için çok önemli makro konusunda
 
Dosyanız linktedir.:cool:

DOSYAYI INDIR

Kod: 
Sub sonucaktar_59()
Dim s1 As Worksheet, s2 As Worksheet, sonsat1 As Long
Dim i As Long, sat As Long
Set s1 = Sheets("SONUÇ")
Set s2 = Sheets("VERİ")
sonsat1 = s1.Cells(Rows.Count, "B").End(xlUp).Row
sat = s2.Cells(Rows.Count, "B").End(xlUp).Row + 1
If sonsat1 < 7 Then
    MsgBox "Akatrılacak veri yok!İşlem iptal edildi.", vbCritical, "UYARI"
    Exit Sub
End If
For i = 7 To sonsat1
    s2.Cells(sat, "A").Value = s1.Range("D4").Value
   s2.Cells(sat, "B").Value = s1.Range("D6").Value
    s2.Cells(sat, "C").Value = s1.Range("F6").Value
    s2.Cells(sat, "D").Value = s1.Cells(i, "B").Value
    s2.Cells(sat, "E").Value = s1.Cells(i, "C").Value
    s2.Cells(sat, "F").Value = s1.Cells(i, "D").Value
    s2.Cells(sat, "G").Value = s1.Cells(i, "E").Value
    s2.Cells(sat, "H").Value = s1.Cells(i, "F").Value
    sat = sat + 1
Next i
MsgBox "İşlem tamamdır."
End Sub
 
Son düzenleme:
hocam süper ellerinize sağlık. Süper olmuş sonuç bölümünde D4 ü Atmıyor.eklemeyi unutmuş olabilirmisiniz
 
#12 nolu mesajda dosyayı güncelledim.Oradan indirebilirsiniz.:cool:
 
OK.HALLETİM ÇOK TEŞEKKÜRLER HOCAM .
BİR SORUM DAHA OLACAK. VERİYİ AKTARDIKTAN SONRA SONUÇ BÖLÜMÜNDEKİLER SİLİNEBİLİR Mİ
 
Kırmızı satırı ekleyiniz.:cool:
Rich (BB code): 
For i = 7 To sonsat1
    s2.Cells(sat, "A").Value = s1.Range("D4").Value
    s2.Cells(sat, "B").Value = s1.Range("D6").Value
    s2.Cells(sat, "C").Value = s1.Range("F6").Value
    s2.Cells(sat, "D").Value = s1.Cells(i, "B").Value
    s2.Cells(sat, "E").Value = s1.Cells(i, "C").Value
    s2.Cells(sat, "F").Value = s1.Cells(i, "D").Value
    s2.Cells(sat, "G").Value = s1.Cells(i, "E").Value
    s2.Cells(sat, "H").Value = s1.Cells(i, "F").Value
    sat = sat + 1
Next i
Range("D4,B7:F31").ClearContents
MsgBox "İşlem tamamdır."
 
HOCAM İYİ GÜNLER. BENİM YAPMAK İSTEDİĞİM ŞEY EXCELDE 1.SAYFADA YAZDIRDIKLARIMI SIRASIYLA 2. SAYFAYA KAYDETMEK İSTİYORUM.YANİ 1. SAYFADA B1 B2 VE B3 E YAZDIKLARIMI DİĞER SAYFADA 1A 2A VE 3A DAKİ SATIRLARA YAZILMASINI VE TEKRAR 1.SAYFADA B1 B2 B3 E YAZDIKLARIMI SAYFA 2 DE BİR ALT SATIRA 2A 3A 4A DA YAZILMASINI İSTİYORUM BÖYLE BİRŞEY MÜMKÜN MÜDÜR? TEŞEKKÜRLER.
 
Yeni bir konu açarak sorunuzu orada sorunuz.
Bu konu çözüldü.:cool:
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst