Bir sayfada sütundaki bilgileri diğer sayfadaki satırlara aktarmak

[ramazan_58]

arkadaşlar ekteki dosyada bilgi girişi sayfasındaki bilgileri personel bilgilerine aktaracak bir kod yazabilirmisiniz.Şimdiden yardımlarınız için teşekkür ederim

 

[zafer]

Merhaba

Ekli dosyayı inceleyiniz.

 

[Mdemir63]

Merhaba

Ekli dosyayı inceleyiniz.

Selam,
Zafer hocam aşağıdaki diğer kalan iki satırı bana açıklayabilirmisiniz?

Saygılar

Sub aktar()

Set s1 = Sheets("Bilgi Girişi") 'Bilgi girişi sayfasını s1 olarak tanımla
Set s2 = Sheets("Personel Bilgileri") 'Personel bilgileri sayfasını s2 olarak tanımla


son = s2.Cells(65536, 2).End(xlUp).Row + 1
For i = 2 To 90 ' 2 den 90 a kadar döngü oluştur
s2.Cells(son, i) = s1.Cells(i, 2)
Next
s1.Range("b2:b90").ClearContents 's1 deki b2:b90 aralığını sil
End Sub

 

[zafer]

Merhaba


son = s2.Cells(65536, 2).End(xlUp).Row + 1 ' B sürunundaki en son satır numarasını bulur (+1) ekler
For i = 2 To 90 ' 2 den 90 a kadar döngü oluştur
s2.Cells(son, i) = s1.Cells(i, 2) ' Set edilen s2 sayfanın i sütun numaralı
son satırına s1 sayfasındaki B sütunundaki (2 nolu sütun) i satır numaralarındaki veriyi getirir.
s1 sayfadaki satırları s2 sayfaya sütun bazında yazdıracağımız için 90 adet satır olduğuna göre cells(satır,sütun) işlemini tersine çevirip verileri getirtiyoruz. i değerini s1 sayfada satır s2. sayfada sütun olarak alıyoruz.

Next ' sonraki değere i ye tekrar git.

 

[Mdemir63]

Merhaba


son = s2.Cells(65536, 2).End(xlUp).Row + 1 ' B sürunundaki en son satır numarasını bulur (+1) ekler
For i = 2 To 90 ' 2 den 90 a kadar döngü oluştur
s2.Cells(son, i) = s1.Cells(i, 2) ' Set edilen s2 sayfanın i sütun numaralı
son satırına s1 sayfasındaki B sütunundaki (2 nolu sütun) i satır numaralarındaki veriyi getirir.
s1 sayfadaki satırları s2 sayfaya sütun bazında yazdıracağımız için 90 adet satır olduğuna göre cells(satır,sütun) işlemini tersine çevirip verileri getirtiyoruz. i değerini s1 sayfada satır s2. sayfada sütun olarak alıyoruz.

Hocam teşekkürler
Hocam küçük bir ayrıntı siz mesela kırmızı ile kodları yazmızsınız belli olması açısından ben yazamıyorum .Bilgilendirebilirmisiniz?
Saygılar

 

[zafer]

Merhaba

Kontrol panelinizde seçenekleri düzenlede
en altta Çeşitli seçeneklerin altında Editör seçeneklerinde Gelişmiş modunu seçiniz.

 

[Mdemir63]

Merhaba

Kontrol panelinizde seçenekleri düzenlede
en altta Çeşitli seçeneklerin altında Editör seçeneklerinde Gelişmiş modunu seçiniz.

Hocam Saygılar sunuyorum

 

[ramazan_58]

selamlar

hocam yardımınız için çok teşekkür ederim.ellerinize sağlık

 

[ramazan_58]

selamlar

Zafer hocam gönderdiğin kod gayet güzel çalışıyor .Yalnız ekte sunduğum belgeye uyguladığımda kütük sayfasının c68 numaralı hücresine aktarması gerekirken aktarmayı kütük sayfasının boş olan c202 numaralı hücresine aktarıyor .

 

[zafer]

Merhaba

İlk gönderdiğiniz dosya ile son dosya arasında değişiklikler var.
Bilgileri aktarırken ben personel sayfasının B sütununu son hücresine yaz dediğim için 202 nolu son hücreyi görüp yazıyor.
Siz şimdi ilk boş hücreye yazmasını söylemişsiniz

ekli dosyada gerekli düzenlemeleri yaptım inceleyiniz.

 

[ramazan_58]

selamlar

hocam kütük sayfasındaki ilk boş hücre c68 dir aralardaki ilk boş olan hücreye veriyi aktarmak istiyorum gönderdiğin kodda c1002 hücresinden başlayarak verileri aktarıyor

 

[zafer]

Merhaba

Kodlardaki
son = s2.Cells(65536, 2).End(xlUp).Row + 1
satırını siliniz.

son = Range("C2").End(xlDown).Row + 1 bu satırını ilave edip yukarıdakini silmeyi unutmuşum.

 

[ramazan_58]

selamlar

Hocam çok teşekkür ediyorum.Yüce Allah işinizi rast getirsin.Amin

 

[ikikan]

Merhaba

Kodlardaki
son = s2.Cells(65536, 2).End(xlUp).Row + 1
satırını siliniz.

son = Range("C2").End(xlDown).Row + 1 bu satırını ilave edip yukarıdakini silmeyi unutmuşum.

dosyayyı tekrar eklermisiniz silinmiş galiba