rs232 connection, parsing data to columns

[errtu]

I am trying to retrieve data from a rs232 device. I want to change this code to put my data into column B not A

Also I want to add a line, so that the code won't run if the previous row has the A column empty (even though B , C, D might have data

[/COLOR][/SIZE][/FONT][/B]Sub GetSWData()

   Dim R As Long
   Dim X As Long
   Dim Chan As Long
   Dim NumFields As Long
   Dim vDat As Variant
   Dim sDat As String

   ' find the next empty row in Column A
   R = ThisWorkbook.Sheets("DDE").Cells(65000, 1).End(xlUp).Row + 1
      
   ' Establish DDE link to WinWedge on Com1
   Chan = DDEInitiate("WinWedge", "Com3")

   ' How many data fields are we retrieving from WinWedge?
   NumFields = 1

   ' Loop through all data fields defined in the Wedge :
   For X = 1 To NumFields

      ' Request the data from each field in the wedge
      vDat = DDERequest(Chan, "Field(" & CStr(X) & ")")

      ' Convert the data from a variant array data type to a string
      sDat = vDat(1)


      ' Place the data in cell location Row = R, Column = X
      ThisWorkbook.Sheets("DDE").Cells(R, X).Value = sDat
      
   Next
     
   
   DDETerminate Chan ' Close the DDE channel

   ' Insert a date/time stamp in the sheet in the same row as the data
   ThisWorkbook.Sheets("DDE").Cells(R, NumFields + 3).Value = Now

End Sub

 

[GlennUK]

Also I want to add a line, so that the code won't run if the previous row has the A column empty

... I think you need to explain this a little more clearly.

 

[errtu]

... I think you need to explain this a little more clearly.

This macro adds lines to A and D, another one (not specified here) adds data to C. And yet another one adds to A. I dont want this macro to run if the previous row has the A field empty (meaning data was not added to it with the other macro). And I want to change the columns where this macro adds the lines. Instead of A and D, I want it to add them to B and D.

I hope that's a bit clearer, sorry

 

[kpark91]

errtu, may I ask what code you are using to get RS232 data?
I'm currently doing something similar and am getting the data but am having trouble with some USB-RS232 converters.

thanks,

EDIT: NVM. I know what program you're using XD

 

[errtu]

errtu, may I ask what code you are using to get RS232 data?
I'm currently doing something similar and am getting the data but am having trouble with some USB-RS232 converters.

thanks,

EDIT: NVM. I know what program you're using XD

winwedge man, it rocks. though it is not the only one, you can use several more

 

[errtu]

anyone? pretty please

 

[GlennUK]

Is this premise right ... if the last cell in column C is greater ( lower down ) than the last cell in column A, then don't do the processing?

As for adding data to B and D instead of A and D, just change this:

ThisWorkbook.Sheets("DDE").Cells(R, X).Value = sDat

to be:

ThisWorkbook.Sheets("DDE").Cells(R, X+1).Value = sDat

 

[errtu]

Is this premise right ... if the last cell in column C is greater ( lower down ) than the last cell in column A, then don't do the processing?

As for adding data to B and D instead of A and D, just change this:

ThisWorkbook.Sheets("DDE").Cells(R, X).Value = sDat

to be:

ThisWorkbook.Sheets("DDE").Cells(R, X+1).Value = sDat

Yes! that is exactly right

 

[errtu]

.................

 

[GlennUK]

So, how about this:

  ' find the next empty row in Column A
   R = ThisWorkbook.Sheets("DDE").Cells(65000, 1).End(xlUp).Row + 1
  ' find the next empty row in Column C
   X = ThisWorkbook.Sheets("DDE").Cells(65000, 3).End(xlUp).Row + 1
   If X > R Then Exit Sub

?