Link to home
Create AccountLog in
Avatar of RWayneH
RWayneHFlag for United States of America

asked on

Why would blank a cell.

I am using a line in VBA:

ActiveCell = strVBELN

Why when it hits this line would it empty the cell?  and now strVBELN is = ""
Avatar of Martin Liss
Martin Liss
Flag of United States of America image

If strVBELN is blank the cell will become blank.
ASKER CERTIFIED SOLUTION
Avatar of Martin Liss
Martin Liss
Flag of United States of America image

Link to home
membership
Create an account to see this answer
Signing up is free. No credit card required.
Create Account
Avatar of RWayneH

ASKER

So how do I make the ActiveCell = strVBELN, without removing it?
I don't understand. When you say "without removing it", what is the "it" you are referring to?
Avatar of RWayneH

ASKER

It skips over your Ln2 were I am trying to make it = strVBELN
Avatar of RWayneH

ASKER

it is the ActiveCell....  it blanks it out after trying to assign what is there to strVBELN
Maybe you can describe the situation. Does the activecell already have something in it? Do you want to replace what's in it or do you want to append strVBELN to it?
RWayneH, it sounds like you need to use Martin Liss' suggested code that checks to see if strBLEVN is empty. If it's empty then it won't do anything to the active cell. However, if it's not empty then it will assign its value to the active cell.
It skips over your Ln2 were I am trying to make it = strVBELN
Well then strVBELN must be blank.
Avatar of RWayneH

ASKER

Here is what I am doing.  It is not assigning the value that is in A2...   strVBELN    (I see a typo in your reply BL?  )
It is skipping over Ln15

Sub GoThruListOfSalesOrders()
sessChoice = "QEC"  'variables used by TESTSAP function
connChoice = "900"
If TestSAP = False Then Exit Sub

Sheets("ListPg").Select
Range("A2").Select
If ActiveCell = "" Then
    MsgBox ("Either list is done, or list was blank.  List of SalesOrder should beginning in cell A2")
    GoTo 200
End If

Do While Not ActiveCell = ""
    If Trim(strVBELN) <> "" Then
    ActiveCell = strVBELN
    End If
   
    session.findById("wnd[0]/tbar[0]/okcd").Text = "/nVA03" 'enter tcode in shortcut field
    session.findById("wnd[0]").sendVKey 0  'press enter
    session.findById("wnd[0]/usr/ctxtVBAK-VBELN").Text = strVBELN
    session.findById("wnd[0]").sendVKey 0  'press enter
    Call GetDataFromSOLN
Loop
200
End Sub

Open in new window

Is strVBELN the name of a cell?
Avatar of RWayneH

ASKER

got it.  It was backwards

strVBELN = ActiveCell     worked.
Avatar of RWayneH

ASKER

Just needed to flip-flop the Ln..   Thanks for the help
You're welcome and I'm glad I was able to help.

In my profile you'll find links to some articles I've written that may interest you.
Marty - MVP 2009 to 2014