Elsa Matilde

Intentá reemplazando la instrucción Const celdaDestino = "A1" por esta otra: celdaDestino = "A" & wsDestino.Range("A" & Rows.Count).End(xlUp).Row + 1 Si tu configuración te exige la declaración de variables, entonces al inicio agregá esta línea: Dim...

Te dejo la macro completada. Se coloca en el Editor, en el objeto HOJA donde tengas tu desplegable. Ajustá en la macro la ubicación de esa celda con desplegable que en mi ejemplo es E5. Private Sub Worksheet_Change(ByVal Target As Range) 'x...

Tema resuelto aquí: Contador de clics en excel Sdos!

Probalo de este modo: rngTexto1.Text = Format(Round(Sheets("Intro").range("H20"), 2), "#,##0.00")

Así quedaría para el rango que mencionas: Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) 'x Elsamatilde If Not Intersect(Target, Range("B2:B400")) Is Nothing Then Range("C" & Target.Row).Value = Range("C" &...

Te dejo la macro que resuelve tu ejemplo. Entra al Editor de macros (con atajo de teclado ALT + F11) Inserta un módulo y allí copia lo siguiente: Sub completaLista() 'x Elsamatilde 'se recorre la col AA hasta el fin de datos 'segunda celda >>>>>...

Debieras dejar una imagen con el ejemplo de tus datos y cómo los quieres. Hay detalles que me hacen temer de que luego habrá que modificar la macro seguramente. 1- Si tienes datos en A1:A3 no puedes ir tapandolos con el resultado que también los...

La propiedad es: MatchRequired en True Si llegas a ingresar un valor que no está en la lista recibirás el siguiente mensaje: Si luego de este mensaje decides borrarlo y dejarlo vacío presiona ESC para poder salir.

Me extraña Lorena... este foro debiera ser tu 'primer' recurso ;) Probá con este formato condicional. Tengo entendido que uds tienen el GMT5... si fuese GMT3 como mencionas en tu consulta cambia ese valor.

Te acabo de dejar una macro en tu otra consulta. Aquí va la misma pero con clave: Private Sub Worksheet_Change(ByVal Target As Range) 'x Elsamatilde 'bloquear en rango A1:Z1000 If Not Intersect(Target, Range("A1:Z1000")) Is Nothing Then...