Çözüldü son dolu satırdan sonrası yazma

Deneyiniz.
HTML:

Patron' Alıntı:

Deneyiniz.
HTML:

Kod: Kodları Kopyala

İçeriği görebilmek için Giriş yap ya da Üye ol.

Genişletmek için tıkla...

Sy. Patron ;

Hocam Elinize sağlık gayet güzel çalışıyor ama farklı bir sayfa ve farklı bir tablo olursa nereyi değiştirmemem gerekiyor bi deneme yaptım Else de hata verdi.

sY. Patron ;
Aranan değer her sayfada aynı değil kiminde 10. sütun kiminde 9. sütun kiminde ise 2 sütün

Tabi dosyaynız ve tablolarınız yine standart olmalı.
burada Ağır Nakliyeyi,
HTML: burada J2:J ve 10 rakamını
HTML: burada A2:V ve 10 rakamını
HTML: burada da 10 rakamını
HTML: değiştirmelisiniz.

Sy. Patron Hocam ;
İkinci sayfadan da aynı kodun sütun alanlarını değiştirerek verileri aynı sayfanın ben başka bir sütunlara getirebiliyorum. Benim istediğim ikinci sayfanın gelen veriler birinci verilerin altına yazması


örnek ;
birinci sayfaların verileri 1,2,3.... şeklinde sıralama yapılınca bu veriler örnek 20. satırda bitti ise 21,22,23 .... şeklinde ikinci sayfanın verileri altına sıralaması

HTML: burada 2 sayfalık bir döngü açılıyor.
HTML: ilk turda s2,ikinci turda s3 işleme alınıyor.
HTML: ile de zaten sırayla alınan veriler 2. turda da kaldığı yerden devam ediyor ve b değişkenine yükleniyor.
HTML: bununla da s1 sayfasına b değişkenindeki veriler yükleniyor.
Dosya yüklerseniz daha isabetli olur.

Sub yurtiçi()
Sheets("Taşıma Liste").Range("ba2:bı200").ClearContents

Dim S1 As Worksheet, s2 As Worksheet, a(), b()
Dim i As Long, say As Long
Set S1 = Sheets("Taşıma Liste")
Set s2 = Sheets("Normal Nakliye")
aranan = S1.[a1]
a = s2.Range("A2:Y" & s2.Cells(Rows.Count, 1).End(3).Row).Value
ReDim b(1 To UBound(a), 1 To 25)
For i = 1 To UBound(a)
If a(i, 10) = aranan Then
say = say + 1
b(say, 1) = say
b(say, 4) = a(i, 1)
b(say, 2) = a(i, 4)
b(say, 3) = a(i, 1)
b(say, 4) = a(i, 17)
b(say, 5) = a(i, 19)
b(say, 6) = a(i, 20)
b(say, 7) = a(i, 21)
b(say, 8) = a(i, 22)
b(say, 9) = a(i, 3)


End If
Next i
S1.Range("ba2:bı" & Rows.Count).ClearContents
If say > 0 Then
S1.[ba2].Resize(say, 9) = b

End If
End Sub




Sub ağır()
Sheets("Taşıma Liste").Range("bL2:bs200").ClearContents

Dim S1 As Worksheet, s2 As Worksheet, a(), b()
Dim i As Long, say As Long
Set S1 = Sheets("Taşıma Liste")
Set s2 = Sheets("Ağır Nakliye")
aranan = S1.[a1]
a = s2.Range("A2" & s2.Cells(Rows.Count, 1).End(3).Row).Value
ReDim b(1 To UBound(a), 1 To 16)
For i = 1 To UBound(a)
If a(i, 9) = aranan Then
say = say + 1
b(say, 1) = say
b(say, 4) = a(i, 1)
b(say, 2) = a(i, 6)
b(say, 3) = a(i, 1)
b(say, 4) = a(i, 5)
b(say, 5) = a(i, 12)
b(say, 6) = a(i, 14)
b(say, 7) = a(i, 13)
b(say, 8) = a(i, 15)
b(say, 9) = a(i, 4)


End If
Next i
S1.Range("bk2:bS" & Rows.Count).ClearContents
If say > 0 Then
S1.[bk2].Resize(say, 10) = b

End If
End Sub




Hocam ben yan yana verileri getiriyorum ama bunları alt alta nasıl verileri getirebilirim.

Sy. Patron ;

Çok çok güzel oldu elinize sağlık. Allah razı olsun.