satır eklemek

[idealimsin]

sayfaya yapıştırdığım biçimli sayı dolu 100 satırlık sayfayı makro ile her bir satırın arasını satır eklemek istiyorum. yani 100. satırda biten hücrelerin son satırı satır eklemeden sonra 200 satır olacak şekilde .ve ekstra bu satır ekleme yaparken istediğim "BU" ve "CE" arası hücrede üst ve alt hücreyi çıkarma işlemi yani örenek; satırı ekleyip A2 hücresine "A1-A3"
formülü yazacak.bu şekilde makro ile yapabilirmiyiz.
manuel olarak uzun vakitlerimi alıyor

 

[ÖmerBey]

Merhaba,
Aşağıdaki kodu deneyiniz.

Sub kod()
Dim s As Integer, a As Integer

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

s = Cells(Rows.Count, "BU").End(3).Row

For a = s To 2 Step -1
    Rows(a).Insert
    With Range("BU" & a & ":CE" & a)
        .Formula = "=BU" & a - 1 & "-BU" & a + 1
        .Value = .Value
    End With
Next

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

Not: Aynı istek için çoklu konu açmayınız.

 

[idealimsin]

Merhaba,
Aşağıdaki kodu deneyiniz.

Sub kod()
Dim s As Integer, a As Integer

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

s = Cells(Rows.Count, "BU").End(3).Row

For a = s To 2 Step -1
    Rows(a).Insert
    With Range("BU" & a & ":CE" & a)
        .Formula = "=BU" & a - 1 & "-BU" & a + 1
        .Value = .Value
    End With
Next

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

Not: Aynı istek için çoklu konu açmayınız.

merhaba yardımınız için teşekkür ederim. bir ilavem olacaktı mümkünse, makroyu çalıştırdığımda biraz uzun sürüyor. bu satır eklemeyi 50 satıra kadar kısaltsam hangi değeri değiştirmem gerekir

 

[idealimsin]

ve "BU -CE arası formül değer olarak değilde formül olarak kalabilirmi?

 

[ÖmerBey]

bu satır eklemeyi 50 satıra kadar kısaltsam

s = Cells(Rows.Count, "BU").End(3).Row yerine s = 50

"BU -CE arası formül değer olarak değilde formül olarak kalabilirmi?

.Value = .Value satırını silin.

 

[idealimsin]

çok çok deşekkür ediyorum. makro çalıştıkça yerinde görebiliyorum. şu ayrıntıyıda belirtebilirmiyiz. satır eklemeyi 5. satırdan itibaren çalıştırabilirmiyiz. ve "BU - CE" arası formül gibi ilave olarak örnek DE - DS arası formülü nasıl ekleriz.

 

[ÖmerBey]

satır eklemeyi 5. satırdan itibaren çalıştırabilirmiyiz.

For a = s To 2 Step -1 satırındaki 2 değerini 5 yapınız.

"BU - CE" arası formül gibi ilave olarak örnek DE - DS arası formülü nasıl ekleriz.

Aşağıdaki kodun altına aynısını bir daha kopyalayınız. "BU" gördüğünüz yeri "DE" ile, "CE" gördüğünüz yeri de "DS" ile değiştiriniz.

    With Range("BU" & a & ":CE" & a)
        .Formula = "=BU" & a - 1 & "-BU" & a + 1
    End With

 

[idealimsin]

çok sağolun elinize gözünüze sağlık

 

[ÖmerBey]

Siz de sağ olun.
İyi çalışmalar...

 

[idealimsin]

For a = s To 2 Step -1 satırındaki 2 değerini 5 yapınız.

Aşağıdaki kodun altına aynısını bir daha kopyalayınız. "BU" gördüğünüz yeri "DE" ile, "CE" gördüğünüz yeri de "DS" ile değiştiriniz.

    With Range("BU" & a & ":CE" & a)
        .Formula = "=BU" & a - 1 & "-BU" & a + 1
    End With

ömer bey bu makronun mantığını açıklayabilirmisiniz. buraraya başka formülde yazmak istiyorum. mesela =(BU4-BU5)*((1000/3600)*BM29) nasıl mümkün olur?
With Range("BU" & a & ":CE" & a)
.Formula = "=BU" & a - 1 & "-BU" & a + 1
End With

 

[ÖmerBey]

a değeri döngü içinde işlem yaptığımız satır numarasına göre sıra ile değişiyor. Örneğin 10. satırda işlem yapıyorsak yukarıdaki kısım

With Range("BU10:CE10")
.Formula = "=BU9-BU11"
End With

şeklinde olurken 50. satırda işlem yaptırdığımızda da

With Range("BU50:CE50")
.Formula = "=BU49-BU51"
End With

şeklinde oluyor. Böylece işlem yapılan satıra göre dinamik olarak değişen aralık ve formül elde etmiş oluyoruz.