Skip to main content
se añadieron 8 caracteres en el cuerpo
Origen Enlace
Alfabravo
  • 9.9k
  • 5
  • 24
  • 32

Tengo la siguiente macro para el registro de datos en la factura esta es la estructura de la factura, tengo un error en FilasFactura error 1004, error en el método 'Range de objeto' _ global, la tabla que se encuentra dentro de la estructura de la factura que contiene el codigo, descripcion, cantidad precio unitario y subtotal se llama Factura y de ahi necesito la primera columna y me indica que no la reconoce

introducir la descripción de la imagen aquí

Sub GuardarFactura()

Dim NombreHoja As String Dim HojaDestino As Range Dim NuevaFila As Integer Dim FilasFactura As Integer Dim i As Integer Dim j As Integer Dim NumFactura As Integer

NombreHoja = "DetalleFacturas"

FilasFactura = Application.WorksheetFunction.CountA(Range("Factura[CODIGO]"))

NumFactura = ThisWorkbook.Sheets("Factura").Range("F5").Value

With ThisWorkbook.Sheets(NombreHoja)

Sub GuardarFactura()

Dim NombreHoja As String
Dim HojaDestino As Range
Dim NuevaFila As Integer
Dim FilasFactura As Integer
Dim i As Integer
Dim j As Integer
Dim NumFactura As Integer

NombreHoja = "DetalleFacturas"

> ***FilasFactura = Application.WorksheetFunction.CountA(Range("Factura[CODIGO]"))***

NumFactura = ThisWorkbook.Sheets("Factura").Range("F5").Value

With ThisWorkbook.Sheets(NombreHoja)

      For i = 1 To FilasFactura
          
          Set HojaDestino = ThisWorkbook.Sheets(NombreHoja).Range("B6").CurrentRegion
          NuevaFila = HojaDestino.Rows.Count + 1
          .Cells(NuevaFila, 1).Value = Date
          .Cells(NuevaFila, 2).Value = NumFactura
          .Cells(NuevaFila, 3).Value = Range("F7").Value
          
          For j = 1 To 5
           .Cells(NuevaFila, j + 3).Value = ThisWorkbook.Sheets("Factura").Cells(9 + 1, 1 + j)
           Next j
                    
       Next i

End With

MsgBox ("Registro Exitoso")

End Sub

End With

MsgBox ("Registro Exitoso")

End Sub

Tengo la siguiente macro para el registro de datos en la factura esta es la estructura de la factura, tengo un error en FilasFactura error 1004, error en el método 'Range de objeto' _ global, la tabla que se encuentra dentro de la estructura de la factura que contiene el codigo, descripcion, cantidad precio unitario y subtotal se llama Factura y de ahi necesito la primera columna y me indica que no la reconoce

introducir la descripción de la imagen aquí

Sub GuardarFactura()

Dim NombreHoja As String Dim HojaDestino As Range Dim NuevaFila As Integer Dim FilasFactura As Integer Dim i As Integer Dim j As Integer Dim NumFactura As Integer

NombreHoja = "DetalleFacturas"

FilasFactura = Application.WorksheetFunction.CountA(Range("Factura[CODIGO]"))

NumFactura = ThisWorkbook.Sheets("Factura").Range("F5").Value

With ThisWorkbook.Sheets(NombreHoja)

  For i = 1 To FilasFactura
      
      Set HojaDestino = ThisWorkbook.Sheets(NombreHoja).Range("B6").CurrentRegion
      NuevaFila = HojaDestino.Rows.Count + 1
      .Cells(NuevaFila, 1).Value = Date
      .Cells(NuevaFila, 2).Value = NumFactura
      .Cells(NuevaFila, 3).Value = Range("F7").Value
      
      For j = 1 To 5
       .Cells(NuevaFila, j + 3).Value = ThisWorkbook.Sheets("Factura").Cells(9 + 1, 1 + j)
       Next j
                
   Next i

End With

MsgBox ("Registro Exitoso")

End Sub

Tengo la siguiente macro para el registro de datos en la factura esta es la estructura de la factura, tengo un error en FilasFactura error 1004, error en el método 'Range de objeto' _ global, la tabla que se encuentra dentro de la estructura de la factura que contiene el codigo, descripcion, cantidad precio unitario y subtotal se llama Factura y de ahi necesito la primera columna y me indica que no la reconoce

introducir la descripción de la imagen aquí

Sub GuardarFactura()

Dim NombreHoja As String
Dim HojaDestino As Range
Dim NuevaFila As Integer
Dim FilasFactura As Integer
Dim i As Integer
Dim j As Integer
Dim NumFactura As Integer

NombreHoja = "DetalleFacturas"

> ***FilasFactura = Application.WorksheetFunction.CountA(Range("Factura[CODIGO]"))***

NumFactura = ThisWorkbook.Sheets("Factura").Range("F5").Value

With ThisWorkbook.Sheets(NombreHoja)

      For i = 1 To FilasFactura
          
          Set HojaDestino = ThisWorkbook.Sheets(NombreHoja).Range("B6").CurrentRegion
          NuevaFila = HojaDestino.Rows.Count + 1
          .Cells(NuevaFila, 1).Value = Date
          .Cells(NuevaFila, 2).Value = NumFactura
          .Cells(NuevaFila, 3).Value = Range("F7").Value
          
          For j = 1 To 5
           .Cells(NuevaFila, j + 3).Value = ThisWorkbook.Sheets("Factura").Cells(9 + 1, 1 + j)
           Next j
                    
       Next i

End With

MsgBox ("Registro Exitoso")

End Sub
Origen Enlace

Error cargar datos en la factura

Tengo la siguiente macro para el registro de datos en la factura esta es la estructura de la factura, tengo un error en FilasFactura error 1004, error en el método 'Range de objeto' _ global, la tabla que se encuentra dentro de la estructura de la factura que contiene el codigo, descripcion, cantidad precio unitario y subtotal se llama Factura y de ahi necesito la primera columna y me indica que no la reconoce

introducir la descripción de la imagen aquí

Sub GuardarFactura()

Dim NombreHoja As String Dim HojaDestino As Range Dim NuevaFila As Integer Dim FilasFactura As Integer Dim i As Integer Dim j As Integer Dim NumFactura As Integer

NombreHoja = "DetalleFacturas"

FilasFactura = Application.WorksheetFunction.CountA(Range("Factura[CODIGO]"))

NumFactura = ThisWorkbook.Sheets("Factura").Range("F5").Value

With ThisWorkbook.Sheets(NombreHoja)

  For i = 1 To FilasFactura
      
      Set HojaDestino = ThisWorkbook.Sheets(NombreHoja).Range("B6").CurrentRegion
      NuevaFila = HojaDestino.Rows.Count + 1
      .Cells(NuevaFila, 1).Value = Date
      .Cells(NuevaFila, 2).Value = NumFactura
      .Cells(NuevaFila, 3).Value = Range("F7").Value
      
      For j = 1 To 5
       .Cells(NuevaFila, j + 3).Value = ThisWorkbook.Sheets("Factura").Cells(9 + 1, 1 + j)
       Next j
                
   Next i

End With

MsgBox ("Registro Exitoso")

End Sub