çoklu döngülü satır aralarına satır eklemek

[ahmetu211]

cok uzun listem var,

liste döngülü ,,FOSETYL AL 500 yazan her satırın altına boş satır açıp



PORTAKAL WTN FİNİKE -SİL 3100089 CEKOK KARTON PORTAKAL - 3 BOY C-40x30x23 Karton Kutu DIZME 1000098 IMAZALIL 14 ML


satırını açılan boş satıra otomatik eklemek istiyorum.

yardımcı olursanız sevinirim

 

[uzmanamele]

merhaba

syn ahmetu211,

bugün 3. kez aynı konuyu link veriyorum, sizde bir bakar mısınız, ne var bu linkte!?
http://www.excel.web.tr/showthread.php?t=72629

 

[ahmetu211]

çoklu liste arasına satır eklemek

cok uzun listem var,

liste döngülü ,,FOSETYL AL 500 yazan her satırın altına boş satır açıp



PORTAKAL WTN FİNİKE -SİL 3100089 CEKOK KARTON PORTAKAL - 3 BOY C-40x30x23 Karton Kutu DIZME 1000098 IMAZALIL 14 ML


satırını açılan boş satıra otomatik eklemek istiyorum.

yardımcı olursanız sevinirim

 

[Necdet]

Satır Ekleme

Merhaba,

Sub SatirEkle()
Dim i As Long
Dim adet As Integer
Application.ScreenUpdating = False
For i = [A65536].End(3).Row To 9 Step -1
    If Cells(i, "I") = "FOSETYL AL 500" Then
        adet = adet + 1
        Rows(i + 1).Insert
        Range("A3:K3").Copy Range("A" & i + 1)
    End If
Next i
Application.ScreenUpdating = False
MsgBox adet & " Adet Satır Eklenmiştir...", vbInformation, "[URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
End Sub

 

[uzmanamele]

merhaba
aşağıdaki kodu standart modüle kopyalayarak satır_ekle makrosunu çalıştırarak deneyiniz.

Sub satır_ekle()
Application.ScreenUpdating = False
sonsat = Cells(65536, 1).End(3).Row
For i = 9 To sonsat
If Cells(i, 9).Text = "FOSETYL AL 500" Then
Cells(i + 1, 9).Select
Selection.EntireRow.Insert
End If
Next
Call kopyala
End Sub
Sub kopyala()
sonsat = Cells(65536, 1).End(3).Row
    Range("A3:K3").Select
    Application.CutCopyMode = False
    Selection.Copy
    For i = 9 To sonsat
If Cells(i, 1).Text = "" Then
Cells(i, 1).Select
ActiveSheet.Paste
End If
Next
Cells(9, 9).Select
    Application.CutCopyMode = True
    Application.ScreenUpdating = True
End Sub

 

[Necdet]

Konular tarafımdan birleştirilmiştir. Lütfen aynı soru için yeni konu açmayınız.

 

[ahmetu211]

çok teşükkür ederim yardım için

 

[turkanet]

merhaba,
açılan boş satıra A3:K3 aralığını değil de, FOSETYL AL 500 içeren satırın bizzat kendini kopyalayıp, yapıştırılan satırda da FOSETYL AL 500 ü IMAZALIL ile değiştirecek şekilde değiştirebilir miyiz?
şimdiden tşk

 

[turkanet]

değerli yardımınızı rica ederim