Abraham Valencia

Prueba con: a1.Range("AI" & cont) = Val(form_FRASRenting.TextImporte) Previo a eso dale el formato deseado (moneda) a la celda. Comentas. Abraham Valencia

Hasta donde recuerdo, no es posible ordenar los archivo en orden de la selección como tú deseas, el "array" los ordena, de forma automática, por el orden del nombre. Abraham Valencia

Creo que algo así te será útil: Dim Rango As Range Dim Registros As Long Set Rango = ActiveSheet.AutoFilter.Range Let Registros = Rango.Columns(1).SpecialCells(xlCellTypeVisible).Count - 1 If Registros = 0 Then MsgBox "No hay nada aquí" End If Solo...

Eso que envías no tiene relación a lo que comentas tienes, adem´s, hay una línea de más ---> "Private Sub Salida()" Regresando al Evento que has colocado, lo que hace es que si hay cambios en las celdas de la columna "G", se coloca la fecha en la...

Al copiar una hoja, ésta hora se copia con los objetos que contiene incluidos los botones que menciona y el módulo correspondiente a la hoja que podría, incluso, contener código (VBA) - macros. Si los botones de dicha hoja hacen más bien referencia a...

No solo nos narres lo que te sucede/ves. Ayúdanos a ayudarte NaCl-U-2 Abraham Valencia

La herramienta "Ir a" de Excel que activad con "F5", también sirve para desplazarse entre hojas, solo tienes que ingresarlo así: Hoja3! A1 El nombre de la hoja, signo te interrogación de cierre y alguna celda y listo. Prueba y comentas. Abraham Valencia

- ¿Estás seguro que los valores que están en las celdas son los adecuados? ¿No hay ningún carácter prohibido para nombres de archivos? - ¿Estás muy seguro de que esa es la ruta correcta de tu "escritorio" y existe la carpeta "Prueba"? - Por último,...

¿Qué características distintas tienen las hojas en las que sí resulta y las que no? Asimismo ¿estás seguro de que esa es toda la rutina en la que comentas sale el error? ¿Ese error lo marca en la línea del "For"? ¿No te estará faltando algún detalle?...

¿Qué código usas? Abraham