اضافه كردن رديف

[iranweld]

با سلام


ماکرو ذیل را در فایل پیوست چک کنید

Sub test()

z1 = Cells(Rows.Count, "A").End(xlUp).Row

For i = 1 To z1

If Range("A" & i) = 1 Then

k = k + 1

t = i

End If


If k > 1 And Range("A" & i) = 1 Then

z1 = z1 + 1

Rows(i & ":" & i).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Range("A" & i).Interior.ColorIndex = 4

i = i + 1

End If

Next

z2 = Cells(Rows.Count, "A").End(xlUp).Row


For i = 1 To z2

If Range("A" & i) = 1 Then

h = i

k = k + 1

End If

If k > 0 And Range("A" & i) = "" Then


Range("A" & i) = "=Sum(A" & h & ":A" & i - 1 & ")"


End If


If k > 0 And Range("A" & i) = Range("A" & z2) Then

Range("A" & z2 + 1).Interior.ColorIndex = 4


Range("A" & z2 + 1) = "=Sum(A" & h & ":A" & z2 & ")"


End If


Next


End Sub 

[healthingclinic]

ممنونم آقای نیما من تونستم با راهنمایی های شما از محیط ماکرو استفاده کنم

[Pbapba]

با سلام


ماکرو ذیل را در فایل پیوست چک کنید

Sub test()

z1 = Cells(Rows.Count, "A").End(xlUp).Row

For i = 1 To z1

If Range("A" & i) = 1 Then

k = k + 1

t = i

End If


If k > 1 And Range("A" & i) = 1 Then

z1 = z1 + 1

Rows(i & ":" & i).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Range("A" & i).Interior.ColorIndex = 4

i = i + 1

End If

Next

z2 = Cells(Rows.Count, "A").End(xlUp).Row


For i = 1 To z2

If Range("A" & i) = 1 Then

h = i

k = k + 1

End If

If k > 0 And Range("A" & i) = "" Then


Range("A" & i) = "=Sum(A" & h & ":A" & i - 1 & ")"


End If


If k > 0 And Range("A" & i) = Range("A" & z2) Then

Range("A" & z2 + 1).Interior.ColorIndex = 4


Range("A" & z2 + 1) = "=Sum(A" & h & ":A" & z2 & ")"


End If


Next


End Sub 

بسیار عالی و خوبه عمل میکنه اگر ممکنه فرمولی بفرمایید چون من میخوام ردیف های اصلی بمونه و در یک ستون جدید این حالت پیش بیاد و در ضمن یک ردیف بیشتر ایجاد نشه چون با اجرای ماکرو هر بار یک ردیف جدید ایجاد میشه
ولی خدایی ازت ممنونم که پاسخ دادی
و این توضیح را هم اضافه کنم هدف من از اینکه گفتم جمع قبلی ها فقط ایجاد یک ردیف بعد از اتمام اعداد هر دسته هست چون احتیاج به یک ردیف خالی دارم .
به عکس ذیل توجه کنید در اصل اون ردیف اضافه را میخوام که جمع رشته برریال را بتونم وارد کنم