Dante Amor

Te anexo la macro para poner "si" y "no" en la columna B Sub Poner_Si_No() 'Por.Dante Amor With Range("B1:B" & Range("A" & Rows.Count).End(xlUp).Row) .FormulaR1C1 = "=IF(RC[-1]=1,""si"",""no"")" .Value = .Value End With End Sub . 'S aludos. Dante...

Te anexo la macro actualizada Sub DataStage() 'Abre archivos asc en diferentes libros nombrandolos con e nombre del orginal 'copia y pega todos los asc en pestañas de un mmismo libro (meta) 'Por PatriciaGarcía ' 'Poner todos los aarchivos asc en una...

Selecciona cada control con click derecho del mouse, seleccionar la opción Formato de control, después selecciona Propiedades y selecciona la opción "No mover, ni cambiar tamaño con las celdas" . 'S aludos. Dante Amor. Recuerda valorar la respuesta....

Te anexo la macro Sub Generador() 'Por.Dante Amor Set h1 = Sheets("Generador") Set h2 = Sheets("Almacenadas inventario") dato = h1.Range("A16") If dato = "" Then MsgBox "Falta capturar el valor en A16" Exit Sub End If ' Set b =...

Directamente en listbox no es posible Pero podrías hacer lo siguiente: Private Sub CommandButton1_Click() 'Actualiza un dato en el listbox If ListBox1.ListIndex = -1 Then MsgBox "Selecciona un registro del list" Exit Sub End If 'Pasa el dato del...

Pon la siguiente macro en los eventos de tu hoja Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Not Intersect(Target, Columns("A")) Is Nothing Then If Target.Count > 1 Then Exit Sub If Target.Value = "" Then Exit Sub existe =...

Puedes poner una rutina que vaya ordenando conforme vas agregando registros en el listbox: Sub filtro1() Sheets("fiven").Select 'hm.Cells.Clear Range("A1:A1000").Select Selection.EntireRow.Delete Dim fec1 As Date, fec2 As Date...

Envíame un correo nuevo con ejemplos Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Aleida Cervino”

Para ponerte en contexto, lo que debe hacer la macro es pasar los datos de la hoja1 a la hoja2, pero en la hoja2, si existen duplicados, se deberán concatenar un par de columnas. Aquí el ciclo de la macro: For i = 2 To h1.Range("A" &...

Pon la siguiente fórmula =CONTAR.SI(A1:A5;A5) [R ecuerda valorar la respuesta. . Avísame cualquier duda .