Run time error 1004: Method 'Range' of object '_global' failed

[ebculver]

Hello,

I am trying to create a VBA userform that calculates a future date based on a given initial date, initial flowrate, final pressure, and average pressure loss per day. Right now, my user form is set up to copy and paste daily pressure data into a textbox, and the VBA code calculates the average pressure loss per day. My issue is that my code doesn't seem to recognize the list of pressures I paste into the textbox. I am pretty new to VBA so I am not savvy enough to diagnose the error through debugging, however I did identify where it is located. I attached my code, user form with dummy values, and pertinent textbox properties box below. Any thoughts would be appreciated!

 

[dreid1011]

Have you tried it without using Range()?

Set PressureData = txtpressuredata.Text

 

[ebculver]

Just tried and this is what i get

 

[dreid1011]

Okay, I was just about to also suggest looking at this thread: VBA TextBox Value to Range

 

[rlv01]

Your For Each Cell in PressureData loop code expects to be working with data that is in worksheet cells, but you appear to want to feed it the text data contained in TextBox txtpressuredata. However that requires replacing the cell loop code with something more suited to the strings in the text box.

    Dim SA As Variant
    SA = Split(Me.txtpressuredata.Text, vbLf)
  
    If UBound(SA) > 0 Then
        TotalChange = CDbl(Trim(SA(UBound(SA)))) - CDbl(Trim(SA(0)))
        DataCount = UBound(SA) + 1
    Else
        DataCount = 0
    End If

(note that TotalChange is just my convenient simplification and not a true average. You are the expert on what it should be )