diğer excel dosyasından bilgi alma

[Armani]

Arkadaşlar merhaba.
sizden bir ricam olacakdı. Bir kodu yazamadım daha dogrusu bilmiyorum.
amacım : başka bir excel dosyasından K sütunundaki değeri 10 olan satiri tamamen alıp Elma sheet name li kısmın 2. satırından itibaren yazmaya başlayacak.

anlatabildiysem yardım ederseniz sevinirim

teşekkürler

 

[sozlersilah]

bir örnek yolla onun üzerinde bakalım şahsen anlamadım dediğinizi

 

[Armani]

Teşekkürler ilgine

Ankara isimli dosya okunacak dosya
Sablon isinli dosya asıl dosya... butona basılarak Ankara isimli dosyanın R Sütununa göre 10 yazanları Sablon isinli dosyada konserve Seeht name de başlıgın altına atacak(Tüm 10 ları ) 20 leri şekerleme sheet name li dosyaya

Sablo isinli dosyada örnek olarak 2 tane attım

Tekrar teşekkürler

 

[Armani]

Yardımınıza ihtiyacım var arkadaşlar.

 

[Armani]

LeventM teşekkürler. Daha önce bi sormuşdum ama kimse cevap vermedi. neyse...

sizlerden aldıgım kodları düzenleyip ekli dosyadaki gibi hale getirdim. Ancak halen en büyük problemi aşamadım. 3 gündür sayfanızdaki tüm ilgili mesajları okudum ancak yapamadım

Tek sorunum (şu an sadece Et butonu üzerinde çalışıyorum) Et bölümüne tıklayınca Ankara.xls dosyasını açıp R sütununda bölüm numarası 10 ile biten satırları asıl dosyada 'et' sayfasınaa kopyalayacak. Zaten dosyayı görünce ne demek istedigimi daha iyi anlarsınız.

Birde hocam hata yapmışmıyım diye bi bakarsanınz sevinirim

Tekrar teşekkürler

 

[Armani]

Yardım edebilecek bir arkadaş varmı ?

 

[Levent Menteşoğlu]

Tek sorunum (şu an sadece Et butonu üzerinde çalışıyorum) Et bölümüne tıklayınca Ankara.xls dosyasını açıp R sütununda bölüm numarası 10 ile biten satırları asıl dosyada 'et' sayfasınaa kopyalayacak.

Dosyanızdaki ET butonuna yazdığınız kodlar daha farklı işlemlerde yapıyor. Ben sadece yukarıdaki cümlenize istinaden aşağıdaki kodu öneriyorum. İstediğiniz işlemi belirtirseniz koda gerekli ilaveleri yapabiliriz. Kodun içine yaptığı işlemlerle ilgili kısa notlarda yazdım umarım faydası olur.

[vb:1:97ab5c0887]Private Sub CommandButton6_Click()
Application.ScreenUpdating = False
Sheets("Et").[2:65536].Delete 'Et sayfasını temizler
Workbooks.Open Filename:="d:\ankara.xls" 'Ankara isimli dosyayı açar
Workbooks("Ankara.xls").Activate 'Ankara isimli dosyayı aktif hale getirir
Sheets("Bkz_12").Select 'Bkz_12 isimli sayfayı seçer
[a2:r65536].Sort Key1:=[r2] 'Bkz_12 isimli sayfayı R sütununa göre sıralar
ilksat = Sheets("Bkz_12").[r1:r65536].Find(10).Row 'R sütununda 10 ile başlayan ilk hücrenin satır değerini bulur
sonsat = WorksheetFunction.CountIf(Sheets("Bkz_12").[r1:r65536], 10) + ilksat - 1 'R sütununda 10 ile başlayan son hücrenin satır değerini bulur
Sheets("Bkz_12").Rows(ilksat & ":" & sonsat).Copy 'sadece 10 değerini içeren satırları kopyalar
Workbooks("New_Sablon.xls").Activate 'New... isimli kitabı aktif hale getirir
Sheets("Et").Rows(2).PasteSpecial Paste:=xlAll 'kopyalanan verileri 2.satırdan başlamak üzere kopyalar
Application.CutCopyMode = False
End Sub
[/vb:1:97ab5c0887]

 

[Armani]

Leventm merhabalar. malesef yazdıgınız kodlarda bşr problem var ama anlayamadım.
Problem datalar yanlış geliyor. sadece bölüm numarası 10 ile bitenleri istiyorum ancak, farklı bölümleride listeliyor. Çok uğraşdım ama malesef çözemedim.

 

[Levent Menteşoğlu]

Haklısınız, mavi renkli satırda küçük bir değişiklik yaptım, tekrar deneyin.

[vb:1:27dd38277c]Private Sub CommandButton6_Click()
Application.ScreenUpdating = False
Sheets("Et").[2:65536].Delete
Workbooks.Open Filename:="d:\ankara.xls"
Workbooks("Ankara.xls").Activate
Sheets("Bkz_12").Select
Sheets("Bkz_12").[a2:r65536].Sort Key1:=Sheets("Bkz_12").[r2]
ilksat = Sheets("Bkz_12").[r1:r65536].Find(10).Row
sonsat = WorksheetFunction.CountIf(Sheets("Bkz_12").[r1:r65536], 10) + ilksat - 1
Sheets("Bkz_12").Rows(ilksat & ":" & sonsat).Copy
Workbooks("New_Sablon.xls").Activate
Sheets("Et").Rows(2).PasteSpecial Paste:=xlAll
Application.CutCopyMode = False
End Sub
[/vb:1:27dd38277c]

 

[Armani]

evet şimdi oldu. emeğiniz için çok teşekkür ederim