Hi all I have a piece of code
I want it to run in three sheets in my workbook at the same time
I searched the forum and tried a lot but I couldn't do it
Is there anyone could help ?
Of course there are many
My code is
Code
Option Explicit
'******************************************************
' ÊÚííä äØÇÞ ÇáÎáÇíÇ ÇáÊí íÊã äÓÎåÇ
Private Const MyRng_Copy As String = "A10:GG10"
'------------------------------------------------------
' MyRng_Copy ÊÚííä ÑÞã ÇáÚãæÏ ãä ÇáäØÇÞ
' ÇáÐí ÓíÇÎÐ ãäå ÂÎÑ ÕÝ ááÕÞ
Private Const MyColumn As Integer = 1
'******************************************************
Sub Kh_Insert_Rows3()
On Error Resume Next
Dim MyRow As Integer, LastRow As Integer
MyRow = 1
MyRow = Application.InputBox(prompt:=" ÇÏÎá ÚÏÏ ÇáØáÇÈ ÇáãÊÞÏãíä ááÅãÊÍÇä " & Chr(10) & "ÚÏÏ ÇáØáÇÈ ÇáÇÝÊÑÇÖí " & MyRow, Title:="ÇÏÑÇÌ ÚÏÏ ãÍÏÏ ãä ÕÝæÝ ÇáÈíÇäÇÊ ", Default:=MyRow, Type:=1)
If MyRow = False Then Exit Sub
With Range(MyRng_Copy)
LastRow = Range(.Cells(1, MyColumn), .Cells(1, MyColumn).End(xlDown)).Rows.Count
.Copy
With .Offset(LastRow, 0).Resize(MyRow, .Columns.Count)
.PasteSpecial xlPasteAll
.SpecialCells(xlCellTypeConstants).ClearContents
End With
.Columns(3).Offset(LastRow, 0).Select
End With
Application.CutCopyMode = False
MsgBox "Êã ÅÏÑÇÌ ÇáÕÝæÝ ÇáãØáæÈÉ ÈäÌÇÍ", 524288 + 1048576, "ÇáÍãÏ ááå"
On Error GoTo 0
End Sub
Display More