deleted-user-cHkW publicó en la clase Caso práctico: Insertar fórmula en una columna con filas dinámicas hace 5 meses
Saludos y gracias por este curso
No consigo saber porque me da un dato que no se esperaba y es en esta instrucción:
Sub LlenarFórmula()
Dim Hoja As Worksheet
Dim ÚltimaFila As Long
Set Hoja = ThisWorkbook.Sheets("Hoja1")
'ÚltimaFila = Hoja.Cells(Hoja.Rows.Count, "A").End(xlUp).Row
ÚltimaFila = Hoja.Cells(Hoja.Rows.Count, "A") -----> tal como esta me da 0
MsgBox ÚltimaFila
'Hoja.Range("C5:C" & ÚltimaFila).FormulaLocal = "=B5*1,16"
End Sub
ÚltimaFila = Hoja.Cells(Hoja.Rows.Count, "A") -----> tal como esta me da 0 en el msgbox
MsgBox ÚltimaFila
cuando debería de dar 1048576 como explicaba Sergio en el video
¿que es lo que ocurre? gracias anticipadas por la ayuda
No consigo saber porque me da un dato que no se esperaba y es en esta instrucción:
Sub LlenarFórmula()
Dim Hoja As Worksheet
Dim ÚltimaFila As Long
Set Hoja = ThisWorkbook.Sheets("Hoja1")
'ÚltimaFila = Hoja.Cells(Hoja.Rows.Count, "A").End(xlUp).Row
ÚltimaFila = Hoja.Cells(Hoja.Rows.Count, "A") -----> tal como esta me da 0
MsgBox ÚltimaFila
'Hoja.Range("C5:C" & ÚltimaFila).FormulaLocal = "=B5*1,16"
End Sub
ÚltimaFila = Hoja.Cells(Hoja.Rows.Count, "A") -----> tal como esta me da 0 en el msgbox
MsgBox ÚltimaFila
cuando debería de dar 1048576 como explicaba Sergio en el video
¿que es lo que ocurre? gracias anticipadas por la ayuda
Respuestas
deleted-user-cHkW respondió hace hace 5 meses:
Vale, creo que ya se mi confusión, con eso lo que me da es el contenido de la celda pero no el numero de la fila.
Para lo que yo queria seria simplemente UltimaFila = Hoja.Rows.Count
Y como apunte
Hoja.Range("C5:C" & ÚltimaFila).FormulaLocal = "=B5*1.16" --> en configuracion ordenador "español" nos da error, el punto no es seperador decimal
Se arregla cambiandolo a una coma
o asi
Hoja.Range("C5:C" & ÚltimaFila).Formula = "=B5*1.16" --> como formula
Para lo que yo queria seria simplemente UltimaFila = Hoja.Rows.Count
Y como apunte
Hoja.Range("C5:C" & ÚltimaFila).FormulaLocal = "=B5*1.16" --> en configuracion ordenador "español" nos da error, el punto no es seperador decimal
Se arregla cambiandolo a una coma
o asi
Hoja.Range("C5:C" & ÚltimaFila).Formula = "=B5*1.16" --> como formula