metni bulma ve altına 3 satır oluşturma

[cengiz123]

merhabalar
makro ile A sütununda "sistem" diye bir kelime aranacak ve bulunan ilk sistem kelimesinin altına üç satır ekleyecek. yeni eklenen üç satırın ilkine "sistem başarıyla yüklenmiştir". ikincisine ise "tekrar deneyiniz" ve üçüncüsü boş kalacak.

böyle bir makro için yardımlarınızı rica ediyorum

 

[Ömer BARAN]

Merhaba, foruma hoşgeldiniz.

-- Alt taraftan işlemin uygulanacağı sayfa adına fareyle SAĞ tıklayıp KOD GÖRÜNTÜLEyi seeçin,
-- Açılan VBA ekranında, SAĞ taraftaki BOŞ alana aşağıdaki kod'u yapıştırın,
-- Excel sayfasına, bir metin kutusu/şekil/düğme ekleyin ve eklediğiniz metin kutusu/şekil/düğme'ye fareyle SAĞ tıklayıp MAKRO ATAyı seçin,
-- Açılan küçük ekranda SİSTEM'i seçerek işlemi onaylayın.
Artık sayfaya eklediğiniz metin kutusu/şekil/düğme'ye fareeyle tıkladığınızda istediğiniz işlem gerçekleşecektir.
.

[B][COLOR="Blue"]Sub SİSTEM()[/COLOR][/B]
For sat = Cells(Rows.Count, [B][COLOR="Red"][SIZE="4"]1[/SIZE][/COLOR][/B]).End(3).Row To 1 Step -1
    If Cells(sat, [B][COLOR="Red"][SIZE="4"]1[/SIZE][/COLOR][/B]) = "sistem" Then
        Rows(sat + 1 & ":" & sat + 3).Insert Shift:=xlDown
            Cells(sat + 1, [B][COLOR="Red"][SIZE="4"]1[/SIZE][/COLOR][/B]) = "sistem başarıyla yüklenmiştir..."
            Cells(sat + 2, [B][COLOR="Red"][SIZE="4"]1[/SIZE][/COLOR][/B]) = "tekrar deneyiniz."
        sat = sat - 1
    End If
Next: MsgBox "İşlem tamamlandı.", vbInformation, "..::.. Ö.BARAN ..::.."
[B][COLOR="blue"]End Sub[/COLOR][/B]

 

[işsiz123]

Bende bir şey sorayım boş bırakılan sutuna rengini nasil verebiliriz

 

[cengiz123]

cevabınız için teşekkürler.
A sütununda sistem gördüğü hücrenin altına satır oluşturması için ne yapılabilir? çünkü makro da A sütununda geçmiyor.

 

[Ömer BARAN]

cevabınız için teşekkürler.
A sütununda sistem gördüğü hücrenin altına satır oluşturması için ne yapılabilir? çünkü makro da A sütununda geçmiyor.

Verdiğim kod istediğiniz işlemi yapıyor zaten.
Sanırım kod'u belgenize uygulamamışsınız.

Sayfayı yenileyerek önceki cevabıma tekrar bakın isterseniz.
Kod'da kırmızı renklendirdiğim 1 sayıları A sütununu temsil ediyor.
Kırmızı renklendirdiğim 1 sayıları yerine "A" (çift tırnak arasında) yazabilirsiniz.
.

 

[cengiz123]

peki sistem kelimesini değilde ilk bulduğu boş hücreden sonra 3 satır oluşturması için nasıl bir değişiklik yapmak gerekir

 

[cengiz123]

peki sistem kelimesini değilde ilk bulduğu boş hücreden sonra 3 satır oluşturması için nasıl bir değişiklik yapmak gerekir

bu konuyla ilgili yardımlarınızı rica ediyorum