Verilen değeri arayıp başka bir Hücreye aktarmak

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Verilen değeri arayıp başka bir Hücreye aktarmak

İleti#1)  Nagihan60 » 19 Kas 2021 20:34

İyi akşamlar,

uzun zaman sonra tekrardan yardımınıza ihtiyacım var. Ekte gönderdiğim Dosyada, alt kısımda aranan Değeri yazdıktan sonra, yanındaki Ara- Buttonuna basarak yukardaki A1:İ5 Hücreler arasında aranılacak Değeri bulmamız gerek. Eğer aranan Değer bulunur ise, aşağıda Sonuç olan kısımda, hem aranan Değeri, hemde hangi Kategoride olduğunu otomotik olarak alt alta yazdırmamız gerek.
Eğer aranan değer A1:İ5 Hücre arası bulunmuyor ise, "Aranan Değer maalesef bulunamadı! diye bir MsgBox bildirisi gerekli.


Şimdiden yardımlarınız için teşekkürler.

N.Ünsal
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Nagihan60
Yeni Başlamış
 
Adı Soyadı:Nagihan Ünsal
Kayıt: 09 Kas 2012 23:10
Konum: Müdür Yardımcısı
Meslek: Muhasebe
Yaş: 61
İleti: 34
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: Konya

Cevap: Verilen değeri arayıp başka bir Hücreye aktarmak

İleti#2)  okutkan » 19 Kas 2021 20:58

Aşağıdaki kodu deneyin.

Kod: Tümünü seç
Private Sub Tabelle_Click()
Dim s As Worksheet: Set s = Sheets("Sayfa1")
Dim aranan As String
Dim bulunan As String

s.Range("A10:B40").ClearContents
aranan = s.Range("D9")
a = 10

For i = 1 To 9

    For k = 2 To 5
    bulunan = s.Cells(k, i).Value
   
    If aranan = bulunan Then
    s.Cells(a, "A") = "Kategori" & i
    s.Cells(a, "B") = aranan
    a = a + 1
    End If
   
    Next k

Next i
    If a = 10 Then MsgBox "Aranan Değer Bulunamadı."
End Sub
Ali ihsan OKUTKAN
Kullanıcı avatarı
okutkan
Site Dostu
 
Kayıt: 27 May 2017 04:45
Meslek: pol. mem.
Yaş: 29
İleti: 1349
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ

Cevap: Verilen değeri arayıp başka bir Hücreye aktarmak

İleti#3)  Nagihan60 » 19 Kas 2021 21:29

Tekrardan iyi akşamlar,

yardımlarınız için çok teşekkürler "okutkan" Bey. Sorunumuz sayenizde böylelikle çözüldü.

Saygılar
Kullanıcı avatarı
Nagihan60
Yeni Başlamış
 
Adı Soyadı:Nagihan Ünsal
Kayıt: 09 Kas 2012 23:10
Konum: Müdür Yardımcısı
Meslek: Muhasebe
Yaş: 61
İleti: 34
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: Konya

Cevap: Verilen değeri arayıp başka bir Hücreye aktarmak

İleti#4)  Nagihan60 » 19 Kas 2021 22:03

Okutkan Bey tekrardan Merhaba,

sizden bir ricam daha olucak. Acaba Ara Buttonuna bastıktan sonra sonuçlar aşağıda Kategori diye değilde, A1:İ1 aralıkta hücrede ne yazılıysa sonuç olarak aşağıdaki alana aktarabilirmiyiz?

Şu an s.Cells(a, "A") = "Kategori" & i -yani "Kategori" yazan yere A1:İ1 hücrelerde ne yazılıysa onu aktarabilirmiyiz. Çünkü ilerde Dosya içinde Kategori ismi değişebilir, o yüzden hücrede ne yazılıysa direk onu aktarabilirsek çok sevinirim. Kısacası "Kategori" kelimesi kalkıp yerine Hücrede hangi kelime var ise o aktarılacak.

Teşekkürler.
Kullanıcı avatarı
Nagihan60
Yeni Başlamış
 
Adı Soyadı:Nagihan Ünsal
Kayıt: 09 Kas 2012 23:10
Konum: Müdür Yardımcısı
Meslek: Muhasebe
Yaş: 61
İleti: 34
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: Konya

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Verilen değeri arayıp başka bir Hücreye aktarmak

İleti#5)  okutkan » 19 Kas 2021 22:53

"Kategori" & i yerine s.cells(1, i) yazıp dener misiniz.
Ali ihsan OKUTKAN
Kullanıcı avatarı
okutkan
Site Dostu
 
Kayıt: 27 May 2017 04:45
Meslek: pol. mem.
Yaş: 29
İleti: 1349
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ

Cevap: Verilen değeri arayıp başka bir Hücreye aktarmak

İleti#6)  Nagihan60 » 19 Kas 2021 23:17

İyi akşamlar Ali İhsan Bey,

önerdiğiniz kodla, bu değişiklikle çok daha iyi oldu.
Yardımlarınız için tekrardan çok teşekkürler.

Saygılar
Kullanıcı avatarı
Nagihan60
Yeni Başlamış
 
Adı Soyadı:Nagihan Ünsal
Kayıt: 09 Kas 2012 23:10
Konum: Müdür Yardımcısı
Meslek: Muhasebe
Yaş: 61
İleti: 34
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: Konya

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Verilen değeri arayıp başka bir Hücreye aktarmak

İleti#7)  okutkan » 19 Kas 2021 23:48

Rica ederim. İyi çalışmalar.
Ali ihsan OKUTKAN
Kullanıcı avatarı
okutkan
Site Dostu
 
Kayıt: 27 May 2017 04:45
Meslek: pol. mem.
Yaş: 29
İleti: 1349
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot, Google Adsense [Bot] ve 2 misafir

Bumerang - Yazarkafe