Manikarthisnr
New member
- Local time
- Tomorrow, 02:18
- Joined
- May 30, 2017
- Messages
- 3
Dear Experts,
I have visited many forums but my problem never gets resolved. Today, I feel am @ right place. Hope, experts will help me.
Am a new member to this forum and its my first post. I have a Excel VBA code that needs to be converted/done into Google Sheet Macro
Sub test()
Dim i As Long, ii As Long, x As Range
Application.ScreenUpdating = False
With Sheets.Add
Sheets("input").Columns(1).Copy .Cells(1)
For i = 2 To .Range("a" & Rows.Count).End(xlUp).Row
If .Cells(i, 1).Hyperlinks.Count Then
ii = 1
Do While .Cells(i + ii, 1).Hyperlinks.Count
If x Is Nothing Then
Set x = .Rows(i)
Else
Set x = Union(x, .Rows(i))
End If
ii = ii + 1
Loop
End If
Next
If Not x Is Nothing Then x.Delete
End With
Application.ScreenUpdating = True
End Sub
Am trying it for past 10days. Plz help me.
Thanks in advance.
I have visited many forums but my problem never gets resolved. Today, I feel am @ right place. Hope, experts will help me.
Am a new member to this forum and its my first post. I have a Excel VBA code that needs to be converted/done into Google Sheet Macro
Sub test()
Dim i As Long, ii As Long, x As Range
Application.ScreenUpdating = False
With Sheets.Add
Sheets("input").Columns(1).Copy .Cells(1)
For i = 2 To .Range("a" & Rows.Count).End(xlUp).Row
If .Cells(i, 1).Hyperlinks.Count Then
ii = 1
Do While .Cells(i + ii, 1).Hyperlinks.Count
If x Is Nothing Then
Set x = .Rows(i)
Else
Set x = Union(x, .Rows(i))
End If
ii = ii + 1
Loop
End If
Next
If Not x Is Nothing Then x.Delete
End With
Application.ScreenUpdating = True
End Sub
Am trying it for past 10days. Plz help me.
Thanks in advance.