Aktarma

[Barons]

Merhaba

Ekli dosyada "sayfa1"'de binlerce firma var.Ben hepsini koymadım çok yer tutacağı için.Bu sayfada Adres sütununda bir semt ismini girdiğimde bu semt ismi geçen satırı komple kesip "ana" adlı sayfaya aktarmak istiyorum.
örnek olara ; Userformda tetbox1'e perpa girdiğimde perpa isminin geçtiği satırı kesip ana adlı sayfaya aktarmak mümkünmü?

Ben bunu sayfa1'in içinde kullandığım kod ile tek tek çift tıklama ile yapıyorum ...doğal olarak çok zaman alıyor.

Yardımcı olacak arkadaşlara sevgiler ve selamlar

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Private Sub CommandButton1_Click()
Set s1 = Sheets("sayfa1")
Set s2 = Sheets("ana")
ara = "*" & TextBox1 & "*"
say = WorksheetFunction.CountIf(s1.[b2:b65536], ara)
If say = 0 Then MsgBox "ARANAN KELİMEYİ İÇEREN VERİ BULUNAMADI"
For a = 1 To say
adr = "b" & sat + 1 & ":b65536"
sat = WorksheetFunction.Match(ara, s1.Range(adr), 0) + sat
sonsat = s2.[a65536].End(3).Row + 1
For b = 1 To 4
s2.Cells(sonsat, b) = s1.Cells(sat, b)
Next
s1.Rows(sat).Delete
Next
MsgBox "BULUNAN " & say & " ADET VERİ AKTARILMIŞTIR"
End Sub

 

[Barons]

Sn LeventM

Gerçekten size çok müteşekkirim...Çözümleriniz her zamanki gibi hızlı ve tam onikiden, Umarım bu kod bir çok arkadaşında işine yarar.

tekrar çok çok teşekkür eder, bütün işlerinizin yolunda gitmesini gönülden dilerim.

 

[Barons]

tekrar merhaba

Kodu kullandıktan sonra Sn LeventM 'ye bir kez daha teşekkür etmeyi istedim.Çünkü beni inanılmaz derecede bir zamandan kurtardı...yaklaşık 20.000 veriyi tek tek kesmek derdinden beni kurtardı...Bu sebeple içimden gelen bütün duaları ona gönderdim...


Tüm forum dostlarına saygı ve selam ile

 

[Levent Menteşoğlu]

Rica ederim. İşinizi kolaylaştırdığına sevindim. Peki denediyseniz şunuda sorayım kodun çalışma hızı nasıl?

 

[Barons]

20.000 veri üzerinde denedim..Çok hızlı..bir kaç saniye içinde 390 veriyi tarayıp diğer sayfaya aktardı...Mükemmel
Þu anda birebir kelimeleri deneme yapıyorum...yani örnek ; ankar yazdığımda ankara veya kara kelimelerinimi buluyor yoksa birebir yazdığım "ankara" kelimesinimi buluyor...