Object variable or with block variable not set - what's going on??
As you setting the .Value (default property) of the Cells(16,2) etc, you do
not need the Set keyword. That is only or object variables. Cells(16, 2).Value = P1R1_udbt_start NickHK "Kragelund" wrote in message ... Public P1R1_udbt_start As Integer, P1R1_udbt_length As Integer, P1R1_amount_primo As Double Public Sub Export_P1R1() Dim i As Integer, j As Integer Dim sheets As worksheets Dim worksheets As worksheets worksheets("Per.1 Rate.Pen. nr. 1").Activate With Cells Set Cells(16, 2) = P1R1_udbt_start Set Cells(30, 6) = P1R1_udbt_length Set Cells(31, 8) = P1R1_amount_primo End With sheets("IndtPer1").Activate For i = 0 To 55 On Error Resume Next With Cells Cells(10 + i, 1).Select If Cells(10 + i, 1) = P1R1_udbt_start Then Cells(10 + i, 12).Select End If For j = 0 To P1R1_udbt_length - 1 Cells(10 + i + j, 12) = P1R1_amount_primo Next j Cells(10 + P1R1_udbt_length, 12).Select End With Next i sheets("Per.1 Rate.Pen. nr. 1").Select End Sub |
All times are GMT +1. The time now is 10:47 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com