Dante Amor

Prueba lo siguiente: Sub Copiar_Celda() 'Por.Dante Amor Set h1 = Sheets("FO124") Set h2 = Sheets("Plano") dato = h1.Range("H5") ' f1 = h2.Range("B" & Rows.Count).End(xlUp).Row + 1 f2 = h2.Range("A" & Rows.Count).End(xlUp).Row h2.Range("B" & f1 & ":B"...

Te anexo la macro Sub Poner_Formato() ' ' Por Dante Amor ' Application.ScreenUpdating = False Set b = Columns("A").Find("Fecha", LookAt:=xlWhole) If Not b Is Nothing Then celda = b.Address Do Rows(4).Copy Range("A" & b.Row).PasteSpecial...

Te anexo la macro. Cambia en la macro la siguiente información: c1 = "A" 'columna inicial de datos c2 = "Z" 'columna final de datos f1 = 1 'fila con encabezados col = "AA" 'columna con la numeración ' Sub Marcar_Y_Numerar() ' ' Por Dante Amor ' ' c1...

Te anexo la macro actualizada Sub negrita() Dim celdaActual As Object For Each celdaActual In Range("A5:c18") If celdaActual.Value = "BASE DE DATOS ACTUAL" Then celdaActual.Font.Bold = True celdaActual.Font.Size = 14 Else celdaActual.Font.Bold =...

Te anexo la macro Sub Quitar_Rangos() 'Por.Dante Amor Application.ScreenUpdating = False On Error Resume Next For Each hoja In Sheets hoja.Select For Each wtabla In ActiveSheet.ListObjects nombre = wtabla.Name wtabla.Unlist Next...

Te anexo la macro. Funciona de acuerdo a tu ejemplo. Antes de ejecutar la macro debes considerar lo siguiente: - Funciona para celdas que tienen 2 letras ejemplo: "VL" o una letra ejemplo: "V". No funciona para celdas que tengan más de 2 letras. -...

Pon el siguiente código en tu botón de buscar. En el textbox1 pon el número de cliente En textbox2 quedará el nombre En textbox3 quedará la fecha En textbox4 quedará el importe Private Sub CommandButton1_Click() 'Buscar 'Por.Dante Amor ' If TextBox1...

Te copia el mismo renglón porque en este ciclo, siempre pone las celdas M11, N11, O11, P11, Q11, R11 y S11 Sub GUARDAR_DATOS() ' GUARDAR_DATOS Macro Dim RENGLON As Integer RENGLON = Sheets("NC").Range("S2").Value For I = 1 To RENGLON fila =...

Te anexo la macro, realiza los siguientes cambios en la macro. Cambia "Hoja4" por el nombre de tu hoja con datos Cambia "Hoja5" par el nombre de tu hoja con resultados Si quieres los registros únicos en la "Hoja5" deja el "1" en esta línea...

H o l a: Quieres que la macro se ejecute en automático o quieres capturar el ingreso o egreso y entonces presionar un botón para ejecutar la macro. Si la quieres en automático, deberás capturar todos los datos y hasta que captures el último dato...