Longitudinal section (inputs from excel)

[vasanthsv84]

Goodday Everyone,

 

I have created a vba code for creating Longitudinal section (inputs from excel), also I want to make a gap between the profiles if a row was empty in excel. Can anyone guide me through this!? Thanks

 

Regards,

 

Vasanth. S

[BIGAL]

You would use the cell is empty as a loop in a loop, if it was a csv file it would be read-line is ""

[vasanthsv84]

Hi Bigal thanks for the response, can you please share a sample vba code to find the empty cell in excel. Thanks

[BIGAL]

Sorry I dont do much in VBA started to play with it but went back to lisp. Some else will help.

[vasanthsv84]

Hi Bigal, it's ok. I found a way around to it. Thanks for the suggestions.

 

			GPT = Rng.Cells(RowIndex, 10)
            Select Case GPT
              Case "1"
              InsPtsST(0) = 0: InsPtsST(1) = 0: InsPtsST(2) = 0
              Case "2"
              InsPtsST(0) = 0: InsPtsST(1) = -500: InsPtsST(2) = 0
              Case "3"
              InsPtsST(0) = 0: InsPtsST(1) = -1000: InsPtsST(2) = 0
              Case "4"
              InsPtsST(0) = 0: InsPtsST(1) = -1500: InsPtsST(2) = 0
              Case "5"
              InsPtsST(0) = 0: InsPtsST(1) = -2000: InsPtsST(2) = 0
              Case "6"
              InsPtsST(0) = 0: InsPtsST(1) = -2500: InsPtsST(2) = 0
            End Select