حذف يك سطر با ماكرو

[emran]

RE: حذف يك سطر با ماكرو

با این کد میشه.

Sub Macro1()

    For i = -100 To -1
    If Cells(-i, 1).Value = "1" Then
    Cells(-i, 1).EntireRow.Delete
    End If
    Next i
End Sub 

[mohebbi_md]

RE: حذف يك سطر با ماكرو

سلام کد زیر رو تو یه ماکرو بنویس و امتحان کن امیدوارم به هدف برسی
Dim MyObject As Object
'To get Number of Source Row
intRowSource = InputBox("Enter Number of Row :", "Number of Row")
'Select Source Sheet
Sheets("Sheet1").Select
'Find The Last Row in Destination Sheet ( Sheet2 )
FinalRow = Cells(Rows.Count, 1).End(xlUp).Row
' Loop through each row
For i = 2 To FinalRow
'Decide if to copy based on column A
ThisValue = Cells(i, 1).Value
'To check Number of Row
If ThisValue = intRowSource Then
Cells(i, 1).Resize(1, 33).Delete

End If
Next i

[shahin]

RE: حذف يك سطر با ماكرو

[Sub Example1()

Const strTOFIND As String = "Hello"

Dim rngFound As Range, rngToDelete As Range
Dim strFirstAddress As String

Application.ScreenUpdating = False

With Sheet1.Range("A:A")
Set rngFound = .Find( _
What:=strTOFIND, _
Lookat:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=True)

If Not rngFound Is Nothing Then
Set rngToDelete = rngFound

'note the address of the first found cell so we know where we started.
strFirstAddress = rngFound.Address

Set rngFound = .FindNext(After:=rngFound)

Do Until rngFound.Address = strFirstAddress
Set rngToDelete = Application.Union(rngToDelete, rngFound)
Set rngFound = .FindNext(After:=rngFound)
Loop
End If
End With

If Not rngToDelete Is Nothing Then rngToDelete.EntireRow.Delete

Application.ScreenUpdating = True

End Sub

[mohsenp]

سلام
من یک ستون دارم که مثلا اعداد 1 تا 10 توی اون ستون نوشته شده . میخوام با ماکرو ، مثلا ردیف 4 از این ستون رو حذف کنم بعد از حذف بین ردیف 3 و 5 فاصله میوفته. حالا میخوام از عدد 5 تا 10 تبدیل به 4 تا 9 بشه یعنی اعداد ستون به ترتیب از 1 تا 9 بشه

[alisabet]

سلام
من یک ستون دارم که مثلا اعداد 1 تا 10 توی اون ستون نوشته شده . میخوام با ماکرو ، مثلا ردیف 4 از این ستون رو حذف کنم بعد از حذف بین ردیف 3 و 5 فاصله میوفته. حالا میخوام از عدد 5 تا 10 تبدیل به 4 تا 9 بشه یعنی اعداد ستون به ترتیب از 1 تا 9 بشه

`پاسخ شما در موضوع ردیف اتوماتیک اینجا شماره ردیف اتوماتیک

[abootorab]

سلام
من یک ستون دارم که مثلا اعداد 1 تا 10 توی اون ستون نوشته شده . میخوام با ماکرو ، مثلا ردیف 4 از این ستون رو حذف کنم بعد از حذف بین ردیف 3 و 5 فاصله میوفته. حالا میخوام از عدد 5 تا 10 تبدیل به 4 تا 9 بشه یعنی اعداد ستون به ترتیب از 1 تا 9 بشه

با درود

این کد رو هم میتونید تست کنید رو هر سلول از اون ردیف دوبار کلیک کنید اون سطر حذف میشه و شماره ردیفها بصورت اتوماتیک اصلاح میشن
البته بنده واسه رویداد دوبار کلیک استفاده کردم که شما میتونید به عنوان یک دکمه بذارین و از این کد به عنوان ماکرو اون دکمه استفاده کنید. البته اگر میخواین به جای رویداد دوبارکلیک به عنوان ماکرو یک دکمه استفاده کنید در تمام سطرهای کد، کلمه Activecell رو جایگزین کلمه Target کنید.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    startrow = Target.Row
    If Target.Offset(1, 0).Value = "" Then
        endrow = startrow
    Else
        endrow = Target.End(xlDown).Row
    End If
    Rows(Target.Row).Delete
    For i = startrow To endrow - 1
        Cells(i, ActiveCell.Column).Value = Cells(i, ActiveCell.Column).Value - 1
    Next i
    Cancel = True
End Sub