Numune Alma Nokta Sayısı Ekleme

[teren77]

Günaydın arkadaşlar,

Hazırlamış olduğumuz excel dosyasında , "Numune alınan nokta sayısı" yazılı olan command butonuna bastığımızda "Kaç adet numune noktası istiyorsunuz" sorusu gelmekte.Bu satıra istediğimiz kadar satır yazıp ok dediğimizde 22. satırın altına istediğimiz kadar satırın eklenmesini ve bütün hücrelerde bulunan formüllerinde aynı şekilde eklenmesini , sonda bulunan 3 sütunda birleştirilmiş hücre olduğu için formülleri ve dolayısıyla hesabı daha beter bozuluyor.Bu formülleri ve makro tarafında ne gibi değişiklikler yaparak düzeltebiliriz?

Denemelerimde satırı farklı yerlere ekleyebiliyorum fakat 22. satırın altına eklemek zor oluyor ama formüller doğru düzgün çalışmıyor.

Bu konuda yardımcı olabilir misiniz?

Saygılarımla.

Tayfun EREN

 

[Ömer]

Merhaba,

Eki inceleyiniz..

Sub IsteneKadarEkle()
 
Dim son As Long, sor As String
Application.DisplayAlerts = False
 
son = Cells(Rows.Count, "B").End(xlUp).Row
 
sor = Application.InputBox(prompt:="How many sample points" & _
"do you have (Kaç adet numune noktası var)?", Title:="Add Rows", _
Default:=1, Type:=1)
 
If sor = False Then Exit Sub
 
Rows(son - 3).Copy
Rows(son - 2 & ":" & son - 3 + sor).Insert Shift:=xlDown
Application.CutCopyMode = False
 
Range("B" & son - 2 & ":F" & son - 2 + sor).ClearContents
 
Range("H19:I" & son - 3 + sor & ",J19:J" & son - 3 + sor & _
",K19:K" & son - 3 + sor).Merge
 
Range("H19:I" & son - 3 + sor & ",J19:J" & son - 3 + sor & _
",K19:K" & son - 3 + sor).Borders.LineStyle = 1
 
Range("H19").Formula = "=Max(G19:G" & son - 3 + sor & ")"
 
Application.DisplayAlerts = True
End Sub

.

 

[teren77]

Kusura Bakmayın Ömer Bey cevap yazmayı unutmuşum.

Çok çok özür dilerim.Emeğinize saygısızlık gibi olmuş.

Dosyayı siz siteye yükledikten ertesi gün indirdik ve inceledik.İstediğimiz gibi olmuş.dediğim gibi acele ile teşekkür etmeyi unutmuşum.Yardımlarınız için çok ama çok teşekkür ederim.

Emeğinize bilginize sağlık.

Tekrar özür dilerim.

Saygılarımla.