Read Each Cell in Excel File

[eyriquezahrul]

Hi, does anyone know how to loop each cell in a given range in Excel through Attachmate macro? Thank you.

 

[SkipVought]

hi,

What code do you have so far?

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[eyriquezahrul]

Oh, thanks 4 replying Skip. Never mind. I already have a solution for this. Thank you.

 

[SkipVought]

It is both customary and proper etiquette to share you solution with other members who may be browsing your thread.

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[eyriquezahrul]

Ok Skip, here is the code for me to browse all the cell and then get the data that I want. I have referred to one of the post in this Attachmate forum to get this solution.

Sub rExtract()

    Dim rNCell, rNCol, rNRng As Range
    
    Set rNRng = Sheets("RCreation Template").Rows("1:500")
    Set rNCol = Sheets("RCreation Template").Columns("A:HH")
    Sheets.Add.Name = "rName"
    
    For Each rNCol In rNRng.Rows
        For Each rNCell In rNCol.Columns
        
            If rNCell.Value = "Operation" Then
                rNCell.Offset(-2, 0).Copy
                
                Sheets("rName").Select
                If IsEmpty(ActiveCell) Then
                    Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                        :=False, Transpose:=False
                Else
                    Range("A65536").End(xlUp).Offset(1, 0).Select
                    ActiveCell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                        :=False, Transpose:=False
                End If
            End If
        Next rNCell
    Next rNCol
End Sub