Clases
1: Instrucción Select...Case para múltiples condiciones
2: Introducción a los Bucles en VBA: Bucle For...Next
3: Bucle For Each...Next para recorrer objetos de una colección
4: Bucle Do...While. Ejecutar mientras se cumple una condición
5: Bucle Do...Until . Ejecutar hasta que se cumpla una condición
6: Implementar un Controlador de errores
7: Procedimientos Sub públicos, privados y cómo ejecutarlos
8: Práctica: Agrupar tablas de varias hojas en una sola
9: Macro optimizada: Agrupar tablas de varias hojas en una sola
10: Funciones definidas por el usuario (UDF)
11: Funciones VBA para manejo de textos
12: Funciones VBA para manejo de Fecha y Hora
13: Funciones VBA de conversión, formato y evaluación
14: Usar Fórmulas y funciones de Excel desde VBA
15: Introducción a los Eventos en VBA y Eventos de libro
16: Introducción a los Eventos en VBA y Eventos de hoja
17: Eventos de Aplicación y eventos no asociados a objetos
Caso práctico: Insertar fórmula en una columna con filas dinámicas
Participaciones
JavierGaray hace 3 semanas
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
↳ Responder
JavierGaray hace 3 semanas
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
0
Estás agregando un comentario en esta clase
Inicia sesión para dejar tu duda, comentario y/o respuesta