Bir sütunda aranan değeri bulup, bulunduğu satırı farklı sayfaya kopyalamak

[suck2fingers]

Merhabalar,

Ekteki tabloda göreceğiniz üzere "liste" adı altında tüm ülkelerin yer aldığı birden çok veri bulunmakta. Kıtalara göre, bu listede yer alan ülkeleri ayırmak istiyorum.

Bunun için ülkeleri sorgulatarak, bulunan ülkenin olduğu satırı istediğim sayfaya nasıl kopyalayabilirim? Örneğin yazılacak fonksiyonda "birden çok ülke" belirtip "x" kıtasına yapıştır deme imkanım var mı?

Teşekkürler,

 

[Muzaffer Ali]

Dosyanız ekte

 

[suck2fingers]

Dosyanız ekte

Merhabalar, teşekkür ederim dönüşünüz için.

Sorumla ilgisini açıkçası anlayamadım ya da tabloyu tam olarak kavrayamadım. Açıklama imkanınız var mıdır?

 

[Muzaffer Ali]

Merhabalar, teşekkür ederim dönüşünüz için.

Sorumla ilgisini açıkçası anlayamadım ya da tabloyu tam olarak kavrayamadım. Açıklama imkanınız var mıdır?

Özür dilerim ya. Başka bir sorunun cevabını size göndermişim. kusura bakmayın.

 

[suck2fingers]

Rica ederim

Peki ya benim soruma bir desteğiniz olur mu?

 

[Muzaffer Ali]

Merhabalar,
Örneğin yazılacak fonksiyonda "birden çok ülke" belirtip "x" kıtasına yapıştır deme imkanım var mı?

Önce ülkeleri nasıl belirteceğinize karar vermelisiniz ki çözümü ona göre yapalım.

Yani belirtme işlemini liste adlı sayfada nasıl yapacaksınız?.

Örneğin ülke adları yanına "X" işareti mi koyacaksınız? Yoksa başka bir şekilde mi olacak.

 

[suck2fingers]

teşekkür ederim.

ülkeler zaten gözüktüğü gibi tabloda, onlar değişmiyor. tüm ülkeler ve satırları belli ve ingilizce yazılı. benim istediğim yine tabloda gördüğünüz gibi, bu ülkeleri bulunduğu satırla beraber kıtalara göre altta yer alan sayfalara yerleştirmek.

 

[ZorBey_]

İnceleyiniz.
http://www.excel.web.tr/search.php?searchid=2649932

 

[Muzaffer Ali]

teşekkür ederim.

ülkeler zaten gözüktüğü gibi tabloda, onlar değişmiyor. tüm ülkeler ve satırları belli ve ingilizce yazılı. benim istediğim yine tabloda gördüğünüz gibi, bu ülkeleri bulunduğu satırla beraber kıtalara göre altta yer alan sayfalara yerleştirmek.

Listedeki tüm ülkeler satırı ile birlikte kıtalara göre ayrılmasını mı istiyorsunuz? Bu kolay.

Ama hangi ülkenin hangi kıtada olduğunu belirten bir ipucu yok ki.

Daha önemlisi bu ülkelerin hangi kıtada bulunduğunu da biz mi öğreneceğiz?

 

[ÖmerBey]

Aşağıdaki kodu dener misiniz?
Böyle bir şey mi istiyorsunuz aceba?

Sub Kopyala()
ayraç = ";"
Set liste = Sheets("Liste")
ülkegir = Application.InputBox("Kopyalamak istediğiniz ülke isimlerini giriniz." & Chr(10) _
        & "Birden fazla ülke girerken araya " & """" & ayraç & """" & " koyunuz.")
Set kıta = Sheets(Application.InputBox("Kıta giriniz."))
For a = 0 To (Len(ülkegir) - Len(Replace(ülkegir, ayraç, ""))) / Len(ayraç)
    ülke = Split(ülkegir, ayraç)(a)
    kson = kıta.Range("A1000000").End(3).Row + 1
    Set ilk = liste.Range("A:A").Find(ülke, , , , , 1)
    Set son = liste.Range("A:A").Find(ülke, , , , , 2).Offset(0, 2)
    Range(ilk, son).Copy (kıta.Cells(kson, 1))
Next
End Sub