Excel belirli sayıda bir satırdaki veriyi almak

[tayfunhasdil]

Merhaba.
Şöyle bir sorunla karşı karşıyayım.

Sayfa1 deki bir satırdan 31 satır aşağıdaki veriyi sayfa 2 ye yeni bir satıra almak istiyorum.

yardımlarınızı bekliyorum

saygılarımla

 

[Muzaffer Ali]

Merhaba.
Örnek bir dosya hazırlayıp, yapmak istediğinizi üzerinde gösterin.
Dosyayı dosya.tc gibi bir sitede paylaşabilirsiniz.

 

[tayfunhasdil]

Merhaba.
Örnek bir dosya hazırlayıp, yapmak istediğinizi üzerinde gösterin.
Dosyayı dosya.tc gibi bir sitede paylaşabilirsiniz.

Merhaba öncelikle teşekkür ederim.
burada yapmaya çalıştığım sayfa1 deki ad soyat tcno gibi verileri sayfa2 deki sütunlara yerleştirmek.

https://s2.dosya.tc/server27/7w0l4e/Kadroluisci.xlsx.html

 

[tayfunhasdil]

Merhaba.
Örnek bir dosya hazırlayıp, yapmak istediğinizi üzerinde gösterin.
Dosyayı dosya.tc gibi bir sitede paylaşabilirsiniz.

Alınacak her veri 31 satırda bir yenileniyor.

 

[Muzaffer Ali]

Veriler hep aynı düzende olduğunu varsayarak hazırladığım dosyanız ekte.
Butona tıkladığınızda listeleme yapar.

Kadroluisci.xlsm dosyasını indir - download

Kadroluisci.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

 

[tayfunhasdil]

Veriler hep aynı düzende olduğunu varsayarak hazırladığım dosyanız ekte.
Butona tıkladığınızda listeleme yapar.

Kadroluisci.xlsm dosyasını indir - download

Kadroluisci.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

Hocam Çok Teşekkür ederim ellerinize sağlık.

 

[tayfunhasdil]

Veriler hep aynı düzende olduğunu varsayarak hazırladığım dosyanız ekte.
Butona tıkladığınızda listeleme yapar.

Kadroluisci.xlsm dosyasını indir - download

Kadroluisci.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

Hocam Tüm Veriyi aktardığımda Owerflow hatası alıyorum liste yaklaşık 1350 Kişi. (38800 Satır) Alta tamamını eklediğimde ve aktar dediğimde (For Bak = 1 To Sayfa1.Cells(Rows.Count, "A").End(xlUp).Row) çözümü için makrodan değiştirebileceğim basit bir öneriniz varmıdır?

 

[Muzaffer Ali]

    Dim Bak As Integer
    Dim Satir As Integer

satırlarını aşağıdaki gibi yapın

    Dim Bak As Long
    Dim Satir As Long

 

[tayfunhasdil]

    Dim Bak As Integer
    Dim Satir As Integer

satırlarını aşağıdaki gibi yapın

    Dim Bak As Long
    Dim Satir As Long

Çok Teşekkür ediyorum sayenizde oldu. Emeğinize sağlık.

 

[betaelektronik]

    Dim Bak As Integer
    Dim Satir As Integer

satırlarını aşağıdaki gibi yapın

    Dim Bak As Long
    Dim Satir As Long

Hocam Merhaba umarım iyisinizdir.
Öncelikle yardımlarınızdan dolayı çok teşekkür ediyorum. Fakat bir hata ile karşılaşıyorum ama çözümünü bulamadım.
Kurum sicil kısmını alamıyorum akratmada.
Kontrol etmeniz mümkünmüdür? Saygılar

Kadroluisci.zip dosyasını indir - download

Kadroluisci.zip dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s2.dosya.tc

 

[Muzaffer Ali]

Sayfa2.Cells(Say, "A") = Say - 1

Satırının altına aşağıdakini ekleyin.

Sayfa2.Cells(Say, "H") = Sayfa1.Cells(Bak, "B")