Eğer Formülü hk.

[Mdemir63]

Selamlar,

Arkadaşlar ekteki dosyamda açıklamaya çalıştım.
A1 hücresinde cümlenin içinde geçen rica kelimesine göre değerledirme yaptırmak istiyorum. Nasıl yapabilirim.

Saygılar

 

[Necdet]

Merhaba,

A1 hücresinin içinde "rica" sözcüğü geçtiğinde A10 hücresi A1 hücresine aktarılacak, A10 hücresi gizlenecek (yoksa 10. satır mı gizlenecek), sonrada 1 satır eklenecek demişsiniz.

Peki hepsini anladık diyelim de 1 satır nerede eklenecek, 1. satıra mı, 2. satıra mı, yoksa 10. satırdan sonra mı?

Yani Soru pek anlaşılır gibi değil.

Aşağıdaki kodlar A1 hücresinde "Rica" ya da "rica" geçtiğinde A10 hücresini A1 hücresine taşır ve 10. satırı gizler.

Eklemeyi anlamadığım için öyle kaldım orda.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
If [A1] Like ("*Rica*") Or [A1] Like ("*rica*") Then
    [A1] = [A10]
    Rows(10).Hidden = True
End If
End Sub

 

[Mdemir63]

Merhaba,

A1 hücresinin içinde "rica" sözcüğü geçtiğinde A10 hücresi A1 hücresine aktarılacak, A10 hücresi gizlenecek (yoksa 10. satır mı gizlenecek), sonrada 1 satır eklenecek demişsiniz.

Peki hepsini anladık diyelim de 1 satır nerede eklenecek, 1. satıra mı, 2. satıra mı, yoksa 10. satırdan sonra mı?

Yani Soru pek anlaşılır gibi değil.

Aşağıdaki kodlar A1 hücresinde "Rica" ya da "rica" geçtiğinde A10 hücresini A1 hücresine taşır ve 10. satırı gizler.

Eklemeyi anlamadığım için öyle kaldım orda.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
If [A1] Like ("*Rica*") Or [A1] Like ("*rica*") Then
    [A1] = [A10]
    Rows(10).Hidden = True
End If
End Sub

Selamlar.

Necdet abi
A1 hücresine yazılan yazının içinde "rica" kelimesi geçiyorsa,
A10 hücresine "Genel Müdür a." yazacak

eğer "rica" kelimesi geçmiyor ise, 10. satırı (A10 Hücresinin olduğu satır)gizleyecek ve 12. satırdan sonrasına bir satır ekleyecek.

Umarım anlatabilmişimdir.

Saygılar abi

 

[Mdemir63]

Selamlar,

Necdet abi
Sizin gönderdiğiniz kodlara ekleme yaparak çözdüm sanırım. Bakabilirmisiniz acaba

Saygılar

 

[Mdemir63]

Necdet abi yanlış göndermişim. Tekrar yeni dosya yı ekledim. Sanırım tek hata her defasında 13. satıra ekleme yapıyor .
Bakabilirmisiniz ?

Saygılar

 

[Necdet]

Merhaba,

Son yazdıklarınızdan başka, kodun içinde başka şeyler anladım, koda değil açıklamanızı dikkate aldığımda şu sonucu çıkarttım :

A1 hücresinin içinde "Rica" sözcüğü varsa 10. satır gizleniyor ve 12. satırdan sonra bir satır açılıyor, aksi takdirde 10. satırın gizliliği kalkıyor.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
If [A1] Like ("*Rica*") Or [A1] Like ("*rica*") Then
    [A10] = "Genel Müdür a."
    Rows(10).Hidden = True
    Rows("13:13").Insert Shift:=xlDown
Else
    Rows(10).Hidden = False
End If
End Sub

 

[Mdemir63]

Selamlar,

Çok teşekkür ederim Necdet abi

Saygılar

 

[Necdet]

Güle gülle kullan gomutanım sonunda doğru yolu bulduk