VBA下标超出范围-错误9故障

debugcn 发表于 Dev

费迪卡

有人可以帮我提供这段代码，我收到一个下标超出范围的错误：

Dim ultimafilaauxiliarZB1 As Long
Dim ultimafilaauxiliarZB2 As Long
Dim ultimafilaauxiliarZN1 As Long
Dim ultimafilaauxiliarZN2 As Long

Dim cont As Integer

     If (Range("D23").Value > 49) Then

        ultimafilaauxiliarZB1 = Sheets("Hoja1").Range("L" & Rows.Count).End(xlUp).Row   ## HERE ERROR ##
        Sheets("Hoja1").Cells(ultimafilaauxiliarZB1 + 1, 12) = Range("D23").Value
        Sheets("Hoja1").Cells(ultimafilaauxiliarZB1 + 1, 13) = Range("C23").Value
        
     End If

ᴇʜ

您需要指定工作簿Sheets("Hoja1")所在的位置，例如：

Workbooks("DASHBOARD_FINAL0000.xlsx").Sheets("Hoja1")

要么

ThisWorkbook.Sheets("Hoja1")

请注意，这ThisWorkbook是编写代码ActiveWorkbook的工作簿，而是重点所在的工作簿（位于顶部）。

还需要指定一个簿和工作表为所有的Range对象。

 Dim wsHoja1 As Worksheet 'define your worksheet
 Set wsHoja1 = ThisWorkbook.Worksheets("Hoja1")

 If (ActiveSheet.Range("D23").Value > 49) Then
    ultimafilaauxiliarZB1 = wsHoja1.Range("L" & wsHoja1.Rows.Count).End(xlUp).Row
    wsHoja1.Cells(ultimafilaauxiliarZB1 + 1, 12) = ActiveSheet.Range("D23").Value
    wsHoja1.Cells(ultimafilaauxiliarZB1 + 1, 13) = ActiveSheet.Range("C23").Value
 End If

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。