ممنونم بابت کمکتون من کد زیر رو نوشتم که باعث می شه فایلم به تعدادی که میخوام جدا بشه و مابین سطرهای جدا شده به تعدادی که میخوام سطر خالی اضافه بشه .
منتها میخوام توی سطرهای خالی که ایجاد میشه یه پیام بنویسه
جداسازی انجام میشه ولی پیام فقط یکبار داده میشه .
میشه لطف کنید بگید ایرادش کجاس؟ ممنون
Sub Insert_Row()
Dim f As Integer, g As Integer
On Error GoTo Getout
g = InputBox("ÊÚÏÇÏ ÝÇÕáå åÇí ãÇÈíä ÑÇ æÇÑÏ äãÇííÏ")
f = InputBox("ÊÚÏÇÏ ÈÑÇí ÌÏÇÓÇÒí ÑÇ æÇÑÏ äãÇííÏ")
Application.ScreenUpdating = False
If f = 0 Or g = 0 Then Exit Sub
On Error GoTo Getout
Range("A" & 2 + f).Select
" "<>Do While ActiveCell.Value
Range(ActiveCell, ActiveCell.Offset(g - 1, 0)).EntireRow.Insert
" Sheet2.Range("B" & 1 + f + g - 1).Value = " áíÈá
ActiveCell.Offset(1 + f +g - 1, 0).Select
Loop
Getout:
Application.ScreenUpdating = True
End Sub
علاقه مندی ها (Bookmarks)