Next available row

[dreimer]

Please help before I go mad.

I am working on a patient assessment form - there's going to be approximately 80-90 columns of data in each row when it's done. The first part is patient demographics. All I am trying to do is get the next available row. I can't get past the run time error. "Method Range of Object Global Failed




Private Sub CB1Save_Click()
Sheets("Sheet2").Activate
'Save to Worksheet
Dim irow As Long
irow = Range("B" & Rows.Count).End(xlUp).Row + 1

Range("A" & irow) = DemographicPatientName.Value
Range("B" & irow) = DemographicDOB.Value
Range("C" & irow) = DemographicAge.Value
Range("D" & irow) = DemographicMonitor.Value
Range("E" & irow) = DemographicDeviceNumber.Value
Range("F" & irow) = DemographicStartDate.Value
Range("G" & irow) = DemographicEndDate.Value

 

[Fluff]

Re: Next avaialable row

Hi & welcome to MrExcel.
There is nothing obviously wrong with that code, which line is highlighted when you click Debug?

 

[dreimer]

Re: Next avaialable row

Range("A" & irow) = DemographicPatientName.Value

 

[Fluff]

Re: Next avaialable row

What is the value of irow?

 

[dreimer]

Re: Next avaialable row

range is where the error is but irow is empty

 

[dreimer]

Re: Next avaialable row

can't get past the run time error. "Method Range of Object Global Failed




Private Sub CB1Save_Click()
Sheets("Sheet2").Activate
'Save to Worksheet
Dim irow As Long
irow = Range("B" & Rows.Count).End(xlUp).Row + 1

Range("A" & irow) =

DemographicPatientName.Value​

in the editor when I hover the cursor over Range the display box reads

"Method Range of Object Global Failed"
when I hover over irow, the box reads "empty"
hovering over the

DemographicPatientName.Value - the value I entered is there​

​

_{^{<strike>
</strike>}}​

 

[Fluff]

Re: Next avaialable row

irow cannot be empty, if you add the message box as shown, what does it say

Private Sub CB1Save_Click()
Sheets("Sheet2").Activate
'Save to Worksheet
Dim irow As Long
irow = Range("B" & Rows.Count).End(xlUp).Row + 1
[COLOR=#ff0000]MsgBox irow[/COLOR]
Range("A" & irow) = DemographicPatientName.Value

 

[dreimer]

Re: Next avaialable row

Last Row 3" "I have two rows with data"

 

[dreimer]

Re: Next avaialable row

sorry that was an incomplete answer
the message box reads "Last Row 3"
because i have 2 rows of data already

 

[Fluff]

Re: Next avaialable row

What code did you use to get that result?
The code I supplied should just have given a number.