alta satır eklemek

[serkanım]

Merhabalar

Excell 2007'de normal bir çalışma sayfasında A1 A200 arasında 'elma' kelimesini arayacak ve bulunan hücrenin altına satır ekleyecek makroya ihtiyacım var.
yardımcı olurmusunuz.

Teşekkürler..

 

[Murat OSMA]

Deneyiniz;

Sub Emre()
    Dim bul As Range
        For Each bul In Range("A1:A200")
            If bul.Value = "elma" Then
                bul.Offset(1, 0).Insert
            End If
        Next bul
    Set bul = Nothing
End Sub

 

[Emir Hüseyin Çoban]

. . .

Sub kod_bir()

For i = 200 To 1 Step -1
If Cells(i, "a") = "elma" Or Cells(i, "a") = "ELMA" Then
Rows(i + 1).Insert
Else
End If
Next i
MsgBox " B İ T T İ "

End Sub

. . .

 

[serkanım]

kod ekleme

merhaba

öncelikle vermiş olduğunuz cevaplardan dolayı teşekkür ederim.yazmış olduğunuz kodlarda sadece "elma" kelimesini arıyor bunu değişken yapabilirmiyiz.örnegin bir hücrenin herhangibir yerinde geçiyorsa satır eklensin.
ve eklenen satırada "kırmızı" yazsın.

tekrar teşekkürler..

 

[Emir Hüseyin Çoban]

merhaba

öncelikle vermiş olduğunuz cevaplardan dolayı teşekkür ederim.yazmış olduğunuz kodlarda sadece "elma" kelimesini arıyor bunu değişken yapabilirmiyiz.örnegin bir hücrenin herhangibir yerinde geçiyorsa satır eklensin.
ve eklenen satırada "kırmızı" yazsın.

tekrar teşekkürler..

. . .

Yukarıdaki kodlar, önceki sorunuza göre çalışıyor.
Yeni sorunuza göre, aşağıdaki kodları deneyiniz.

Sub kod_iki()

For i = 200 To 1 Step -1
If Cells(i, "a") Like "*" & "elma" & "*" Then
Rows(i + 1).Insert
Rows(i + 1).Interior.Color = 255
Else
End If
Next i
MsgBox " B İ T T İ "

End Sub

. . .

 

[serkanım]

son soru

merhaba hüseyin bey,

son bir isteğim olcak.şuanda eklenen satır kırmızı ile işretleniyor.sadece ilk hücreyi işretlemek istiyorum.
kodu bu şekilde düzenleyebilirmiyiz.

tekrar teşekkürler..

 

[Emir Hüseyin Çoban]

. . .

Sub kod_üc()

For i = 200 To 1 Step -1
If Cells(i, "a") Like "*" & "elma" & "*" Then
Rows(i + 1).Insert
Cells(i + 1, "a").Interior.Color = 255
Else
End If
Next i
MsgBox " B İ T T İ "

End Sub

. . .

 

[rtk19641990]

Bunu hücrenin altına bir satır eklemek değil de elma olan hücrenin altına satır eklemek istersek nasıl yapabiliriz acaba?