Dante Amor

Te anexo la macro Sub Sumar_Nits() 'Por Dante Amor Application.ScreenUpdating = False Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") h2.Rows("2:" & Rows.Count).ClearContents u = h1.Range("D" & Rows.Count).End(xlUp).Row k = 2 c1s = Array("E", "G",...

Te anexo la macro Sub Copiar_Datos() 'Por Dante Amor Set h1 = Sheets("origen") 'hoja origen Set h2 = Sheets("destino") 'hoja destino ' u1 = h1.Range("A" & Rows.Count).End(xlUp).Row u2 = h2.Range("A" & Rows.Count).End(xlUp).Row + 1 h1.Range("A2:A" &...

¿Y qué quieres hacer variable, las filas, las columnas? Por ejemplo: Sub rango() fini = 3 'fila inicial ffin = 5 'fila final cini = 2 'columna inicial cfin = 12 'columna fina 'ActiveWorkbook.Names.Add Name:="Pendientes",...

Te anexo la macro actualizada Sub aleatorio_3() 'Por Dante Amor Dim num As New Collection On Error Resume Next For Each cadafila In Selection.Rows Set num = Nothing fila = cadafila.Row ini = Columns("Q").Column 'columna inicial fin = ini +...

Pon el siguiente código en los eventos de tu hoja Dim celda ' Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Columns("C")) Is Nothing Then If Target.Count > 1 Then Exit Sub If Target.Value = "" Then Exit Sub If...

Puedes poner un par de registros con datos de ejemplo de qué es lo que tienes y qué esperas de resultado. Si lo puedes poner con imágenes sería mucho mejor, procura que en las imágenes se vean las filas y las columnas de excel para ver exactamente en...

Pon la siguiente macro en los eventos de tu hoja "OPCIONES" Private Sub Worksheet_Change(ByVal Target As Range) 'Por Dante Amor 'Cada que selecciones SI en la celda C14 que se eliminen las filas 66 a 83 ' If Not Intersect(Target, Range("C14")) Is...

Puedes poner el archivo en alguna nube como dropbox y compartir el enlace. O pon ejemplos explicando lo que tienes y lo que esperas como resultado, puedes poner imágenes. ¿Cómo se hace para subir fotos?

Revisa las siguientes respuestas: Codigo VBA para un Listbox con mas de 10 columnas Tengo un Listbox con 20 columnas pero sólo me muestra 10 También busca mis ejemplos para cargar con rowsource: Filtro avanzado en celdas con fórmulas Filtrar por...

Prueba con lo siguiente: If Val(TextBox1.Value) > 1 Then rutina End If [sal u dos