Makro ile Sayfalar Arası Veri Taşıma İşlemi

@merakli

Kodun son bölümünü şöyle değiştirin.
ListeData ve Veri sayfalarında, verilerin hep 1'inci satırdan başlayacağı varsayıldı.

Ömer BARAN' Alıntı:

@merakli

Kodun son bölümünü şöyle değiştirin.
ListeData ve Veri sayfalarında, verilerin hep 1'inci satırdan başlayacağı varsayıldı.

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(16 satır)

Genişletmek için tıklayın ...

Teşekkür ederim @Ömer BARAN Bey,

Burada dediğiniz gibi ListeData ve Veri sayfalarında, veriler 1'inci satırdan başlıyordu.

Bunu uzun süredir üzerinde çalıştığımız diğer excel dosyasında Liste sayfasında da kullanacağım.
Orada B9 ve C9 dan başlayarak B ve C sütunlarına ekleyeceğim.
Bu durumda nasıl bir değişiklik ya da ekleme yapmamız lazım?

For ls = 1 To ... kısmındaki 1 sayısı ListeData sayfasındaki verilerin başlangıç satır numarası (burası hep 1 sanırım).
Not: Cells(satır no, sütün no) diye düşünün.

Diğer sayfaya veriler 9'uncu satırdan itibaren, B ve C sütununa yazılmak isteniyorsa;
Kodda ls değişkeni 1'den başlıyor, hedef ise 9'uncu satır, yani ls+8 olarak düşünülebilir

Eşitliğin solundaki yani sonucun yazılacağı sayfadaki sütun numarası B ve C için 2 ve 3.
Eşitliğin sağındaki yani verinin okunacağı sayfadaki sütun numarası ise,
sınıf için A sütunu (sütun no 1), öğrenci numarası B sütunu (sütun no 2), adı C sütunu (sütun no 3) ve soyadı D sütunu (sütun no 4)

Bu durumda (Birkaç satır üstteki kod satırlarında LD değişkeni ListeData sayfası olarak, V değişkeni ise Veri sayfası olarak tanımlanmıştı);
V.Cells(ls+8, 2) = Split(LD.Cells(ls, 1), "/")(0)
V.Cells(ls+8, 3) = LD.Cells(ls, 2) & " " & LD.Cells(ls, 3) & " " & LD.Cells(ls, 4)
diye yazılabilir.
Bence asıl belgenizde değil, birkaç satır sütunlu örnek bir belge hazırlayıp onun üzerinde denemeler yaparsanız kolayca öğrenilebilir.

Ömer BARAN' Alıntı:

For ls = 1 To ... kısmındaki 1 sayısı ListeData sayfasındaki verilerin başlangıç satır numarası (burası hep 1 sanırım).
Not: Cells(satır no, sütün no) diye düşünün.

Diğer sayfaya veriler 9'uncu satırdan itibaren, B ve C sütununa yazılmak isteniyorsa;
Kodda ls değişkeni 1'den başlıyor, hedef ise 9'uncu satır, yani ls+8 olarak düşünülebilir

Eşitliğin solundaki yani sonucun yazılacağı sayfadaki sütun numarası B ve C için 2 ve 3.
Eşitliğin sağındaki yani verinin okunacağı sayfadaki sütun numarası ise,
sınıf için A sütunu (sütun no 1), öğrenci numarası B sütunu (sütun no 2), adı C sütunu (sütun no 3) ve soyadı D sütunu (sütun no 4)

Bu durumda (Birkaç satır üstteki kod satırlarında LD değişkeni ListeData sayfası olarak, V değişkeni ise Veri sayfası olarak tanımlanmıştı);
V.Cells(ls+8, 2) = Split(LD.Cells(ls, 1), "/")(0)
V.Cells(ls+8, 3) = LD.Cells(ls, 2) & " " & LD.Cells(ls, 3) & " " & LD.Cells(ls, 4)
diye yazılabilir.
Bence asıl belgenizde değil, birkaç satır sütunlu örnek bir belge hazırlayıp onun üzerinde denemeler yaparsanız kolayca öğrenilebilir.

Genişletmek için tıklayın ...

Bilgi ve açıklama için teşekkürler