VERİ AKTARMA MAKROSU

[serkan guvenc]

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

 

[Orion1]

Ö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.

DOSYA YUKLE
.

 

[serkan guvenc]

https://dosya.co/urif8smws1il/ÖRNEK2019Y.xls.html
Örnek dosya ektedir

 

[Orion1]

Bana aktarmak istediğiniz sütunları yanlış belirtmişsiniz gibi geliyor.
Tekrar kontrol ediniz.Yaptıktan sonra bir daha geri dönmem.

 

[serkan guvenc]

Hocam SONUÇ kısmına yazılanlar VERİ kısmına aktarılacak

 

[Orion1]

#1 nolu mesajda aktarılacak yerleri yazmışsınız.Bunlar doğrumu?

 

[serkan guvenc]

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.

 

[Orion1]

Söylediklerinizle dosyadaki durumlar çelişiyor.
Bu konudan çekiliyorum.
Başka arkadaşlardan yardım alınız.

 

[serkan guvenc]

Çelişen durum ne anlamadım ama yinede teşekkürler

 

[Orion1]

Yada ben tam konuyu anlamadım daha doğrusu.Uğraşayım biraz daha.

 

[serkan guvenc]

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

 

[Orion1]

Dosyanız linktedir.

DOSYAYI INDIR

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

 

[serkan guvenc]

hocam süper ellerinize sağlık. Süper olmuş sonuç bölümünde D4 ü Atmıyor.eklemeyi unutmuş olabilirmisiniz

 

[Orion1]

#12 nolu mesajda dosyayı güncelledim.Oradan indirebilirsiniz.

 

[serkan guvenc]

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İ

 

[Orion1]

Kırmızı satırı ekleyiniz.

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."

 

[serkan guvenc]

HOCAM SÜPER ELLERİNE YÜREĞİNE SAĞLIK

 

[Orion1]

HOCAM SÜPER ELLERİNE YÜREĞİNE SAĞLIK

Rica ederim.
İyi çalışmalar.

 

[serthar]

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.

 

[Orion1]

Yeni bir konu açarak sorunuzu orada sorunuz.
Bu konu çözüldü.