Macro İle Satır Açma

Katılım
21 Eylül 2004
Mesajlar
41
Macro Ýle Satır Açma

merhaba,

Ekteki dosyada birçok tablolar var, tabloların ismi her ay farklı olabilir,
tabloların içindeki NET MİKTAR yazan satırların altına 6 (altı) satır açabilirmiyiz. Dosya örnek olup, tablo ve satır sayısı her ay farklı olabilir, burda önemli olan NET MIKTAR'ın altına 6 (altı) satır açması, tabi bütün sheetlere.

Yardımlarınızı bekliyorum.
 

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,270
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Çözüm ektedir...
 
Katılım
21 Eylül 2004
Mesajlar
41
Raider çok teşekkürler, buna ilaveten yine aynı dosyada aynı şekilde "Smm Satış" yazan
satırları silebilirmiyiz.

Þimdiden teşekkürler,
 

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,270
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Yeni çözüm ektedir...
 

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,270
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
İlave:

Geçerli olan ornekCozum3.zip dosyasıdır...
 
Katılım
21 Eylül 2004
Mesajlar
41
Raider şöyle bir sorun oluştu, mesala sheetlerde 30.000'e yakın satır şimdiki işlem belli satırdan sonra satır ilavesi yapmıyor. Düzeltmemiz mümkünmü ? Ayrıca mevcut ilave satırlar içinde silen macro oluştırabilirmiyiz.

Teşekkürler,
 

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,270
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
ornekCozum3.zip dosyasındaki Test isimli makroda;

Dim NoB As Long

satırının altına aşağıdaki satırı da ilave ettikten sonra bir daha deneyin.

Dim ii As Long
 

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,270
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
olur olur...

olmaması için bir neden yok.
 
Katılım
21 Eylül 2004
Mesajlar
41
Raider denedim olmadı, ya ben beceremedim yada başka birşey var,
dosyada satır artırarak (örnek sheet 1) tekrar gönderiyorum. ilgilenebilirmisin.

Teşekkürler.
 

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,270
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Dosyadaki Test isimli makroyu silip, aşağıdakini kullanın.

Kod:
Sub Test()
    Dim NoB As Long
    Dim ii As Long
    Dim i As Integer
    Dim j As Integer
    Dim MyRng As Range
    Application.ScreenUpdating = False
        For i = 1 To Worksheets.Count
        Sheets(i).Select
        ii = 0
        j = 0
        NoB = Cells(65536, 2).End(xlUp).Row
            For ii = NoB To 5 Step -1
                    If Trim(Cells(ii, 2)) = Trim("Net  Miktar") Then
                        Rows(ii + 1).Select
                            For j = 1 To 6
                                Selection.Insert Shift:=xlDown
                            Next
                    End If
            Next
            For ii = 5 To Cells(65536, 2).End(xlUp).Row
                If Trim(Cells(ii, 2)) = Trim("Smm Satış") Then Rows(ii).Delete
            Next
        Next
        Application.ScreenUpdating = True
End Sub
 
Katılım
21 Eylül 2004
Mesajlar
41
tamam, çok teşekkürler.
 
Üst