Satırı bul,sütunu bul ikisinin kesişim hücresini sonuç olarak ver.

[secrethero89]

Arkadaşlar hücrelerde bir istediğimiz bir yazıyı bulup o yazıyla eşleşen sütunun kesiştiği hücre değerini veren bir koda ACİL ihtiyacım var... lütfen yardımcı olun. Dosya da açıklamalar bulunmaktadır.

Yardım lütfennn...:frown:

 

[Recep İpek]

Kopyalanacak alan satırı ( 53 ) değişmeyecek ise aşağıdaki kodları kullanabilirsiniz.

Sub Düğme12_Tıklat()
With Range("A:A")
    Set Bul = .Find("Total", LookIn:=xlValues, LookAt:=xlWhole)
    If Not Bul Is Nothing Then
        Range("b53:L53").ClearContents
       [b53].Value = Cells(Bul.Row, "b").Value
       [c53].Value = Cells(Bul.Row, "c").Value
       [d53].Value = Cells(Bul.Row, "d").Value
       [e53].Value = Cells(Bul.Row, "e").Value
       [f53].Value = Cells(Bul.Row, "f").Value
       [g53].Value = Cells(Bul.Row, "g").Value
       [h53].Value = Cells(Bul.Row, "h").Value
       [i53].Value = Cells(Bul.Row, "i").Value
       [j53].Value = Cells(Bul.Row, "j").Value
       [k53].Value = Cells(Bul.Row, "k").Value
       [L53].Value = Cells(Bul.Row, "L").Value
    End If
End With
End Sub

 

[Necdet]

Merhaba,

Sub Bul()
    Set c = Sheets(1).Range("A:A").Find("Total", LookIn:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then
        i = [B65536].End(3).Row + 1
        Range("B" & c.Row & ":L" & c.Row).Copy Range("B" & i)
    Else
        MsgBox "Bulunamadı............."
    End If
End Sub

 

[secrethero89]

Merhaba,

Sub Bul()
    Set c = Sheets(1).Range("A:A").Find("Total", LookIn:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then
        i = [B65536].End(3).Row + 1
        Range("B" & c.Row & ":L" & c.Row).Copy Range("B" & i)
    Else
        MsgBox "Bulunamadı............."
    End If
End Sub

Çok teşekkürler arkadaşlar.. İkisi de çalıştı.. Yalnız bir şey daha rica edicem. Senin yazdığın bu kodda altına yeni satır açmasa,hep üzerine yapıştırsa?Olabilir mi acaba?

 

[Orion1]

Sana aslanlar gibi fonksiyon yazdım.Hemde hiç düğmeye falanda basmaya gerek yok.
Dosya ekte.
Formül:

=DOLAYLI(ADRES(KAÇINCI("Total";$A4:$A34;0)+3;SÜTUN()))

 

[Necdet]

Evren Bey fonksiyonla halletmiş bence o daha iyi, Düğmeye basmaktan kurtulmuş olursunuz

 

[secrethero89]

Sana aslanlar gibi fonksiyon yazdım.Hemde hiç düğmeye falanda basmaya gerek yok.
Dosya ekte.
Formül:

=DOLAYLI(ADRES(KAÇINCI("Total";$A4:$A34;0)+3;SÜTUN()))

çok teşekkürler ya.. süper bi siteymiş burası

 

[mesudiye_052]

Selam,

benden de alternatif olsun

 

[HASANAKI1]

Dosyadaki örneğe göre UserFormdan girilen X ve Y değerine göre satır ve sütunun kesişim hücresindeki değeri aranılan değer textboxuna yazdıran koda ihtiyacım var.
Lütfen yardım.Şimdiden teşekkürler.

 

[Orion1]

Dosyadaki örneğe göre UserFormdan girilen X ve Y değerine göre satır ve sütunun kesişim hücresindeki değeri aranılan değer textboxuna yazdıran koda ihtiyacım var.
Lütfen yardım.Şimdiden teşekkürler.

Hangi dosya.

 

[HASANAKI1]

Aranılan Değer

Dosyadaki örneğe göre UserFormdan girilen X ve Y değerine göre satır ve sütunun kesişim hücresindeki değeri aranılan değer textboxuna yazdıran koda ihtiyacım var.
Lütfen yardım.Şimdiden teşekkürler.

 

[HASANAKI1]

Kusura bakma arkadaşım ilk seferinde beceremedim.Onun için mesaj mükerrer oldu.Dosya 2. sayfada

 

[Orion1]

Kusura bakma arkadaşım ilk seferinde beceremedim.Onun için mesaj mükerrer oldu.Dosya 2. sayfada

Bende (Ve Bir çok kişide) 2007 yok.2003 formatında dosyanızı eklerseniz sorunuza daha çabuk cevap alabilirsiniz.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub CommandButton1_Click()
    Set BULX = Range("A:A").Find(TextBox1, LookAt:=xlWhole)
    Set BULY = Rows("1:1").Find(TextBox2, LookAt:=xlWhole)
    If Not BULX Is Nothing And Not BULY Is Nothing Then
    TextBox3 = Cells(BULX.Row, BULY.Column)
    Else
    TextBox3 = Empty
    End If
End Sub

 

[HASANAKI1]

Aranılan Değer

Ne kadar teşekkür etsem azdır. Çünkü günlerdir bunu nasıl yapacağımı düşünüp duruyordum.Excel VBA bilgim de çok kısıtlı olduğu için altından kalkamadım.Bu tabloyu asıl yapmak istediğim şeye bir model olsun diye örnek olarak yaptım.Asıl yapmak istediğim şey biraz daha farklı ve kapsamlı bir şey.Bununla ilgili çalışmamı tamamladığımda sizleri bir kaç kez daha rahatsız edebilirim.Kusura bakmayın.İyi çalışmalar.

 

[HASANAKI1]

Merhaba Arkadaşlar.
Dosyadaki userformda combobox1'e 2.satırdan özgül ağırlık,ısı iletkenliği vb. seçenekleri alarak ve combobox2'ye de B sütunundaki malzeme adlarını alarak (bunu yaptım) bu iki comboboxtan yapılan seçime göre bul butonuna tıklandığında textbox1'de ilgili değer çıksın, label3'te combobox1'de yaptığım özellik türü yazsın,label5'te de birim sütunundaki ilgili birim yazsın.
teşekkürler.

 

[Nadir46]

Arkadaşlar merhaba,
Sorun:
Bir hücredeki değere bakarak ayını isimdeki sütunu bulup o kesiştiği noktaya "x" yazdıracak bir formüle ihtiyacım var..

Örneğin

K3 hücresinde 18 değeri var, bu değere bakacak ve 18 yazan sütunla kesişen yere 18 yazacak..

Teşekkür ederim