İki satır arasındaki karakterleri kopyalama

[YASINT]

Ýki satır arasındaki karakterleri kopyalama

merhabalar sorum A1 satırında yazan Depo 1 ile A25 satırındaki Depo 2 arasında kalan malların isimlerini başka bir sayfaya çekmek istiyorum. Fakat çekerkende satır numaralarını otomatik olarak kendinin bulmasını istiyorum. Yani A1 Depo 1 yazarken Depo 2 satırı A25 değilde A35 de olabiliyor. Bu Þekilde Satırlar kullanılarak değilde Depo adlarına göre mal isimlerini nasıl listelerim. teşekkürler

 

[Kemal Demir]

Sn. Yasin Ã?rnek Dosya Olmadan 8Kendi Adıma Konusoyrum) Forumdaki Arkadasların Size Tam olarak yardımcı Olmaları Zora Biniyor.

Küçük Bir Dosya Yollarsanız Sevinirim.

 

[YASINT]

çok haklısınız Sn. Rakkas ekte örnek bir dosya yolluyorum.

 

[seroksen]

• 

 

[abazya]

Pardon,

Sn:seroksen, anlamadım ?

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin. 1. ve 2. depo arasındaki verileri sayfa2 ye kopyalar.

[vb:1:2f4e8bc09f]Sub veriaktar()
On Error Resume Next
sat1 = [a1:a65536].Find("1. DEPO").Row
sat2 = [a1:a65536].Find("2. DEPO").Row
adr = "a" & sat1 + 1 & ":e" & sat2 - 1
Range(adr).Copy
Sheets("sayfa2").Select
[a1].PasteSpecial
Application.CutCopyMode = False
End Sub[/vb:1:2f4e8bc09f]

 

[YASINT]

teşekkürler leventm

 

[ömer yıldırım]

leventm, sayın leventm benim öğrenmek istediğim sat1 = [a1:a65536].Find("1. DEPO").Row bu arama işleminde aranacak olan 1.depo verisini sabit değilde ınputbox ile değişken olarak seçebilmemiz için ne yapmalıyız .yani aranacak veriyi ınputbox üzerinden seçebilmem için ne yapmalıyım .yardımcı olursanız sevinirim