Dante Amor

H o l a: Te anexo la macro para que la pongas en los eventos de tu hoja Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Not Intersect(Target, Range("S7:U935")) Is Nothing Then If Target.Count > 1 Then Exit Sub cuenta =...

H o l a: Te anexo el código: Private Sub ComboBox1_Change() 'Por.Dante Amor Set h1 = Sheets("BBDD") If ComboBox1 <> "" Then TextBox1 = "" Set b = h1.Columns("A").Find(ComboBox1, lookat:=xlWhole) If Not b Is Nothing Then TextBox1 = h1.Cells(b.Row,...

Pon la siguiente macro en tu archivo "Consolidado". No mencionaste cómo se llama la hoja del libro "Consolidado" donde se va a poner la información, en la macro le puse "CostosConsol", cambia ese nombre en la macro por el nombre de tu hoja. También...

H o l a: Te anexo el código para cargar el combobox de área: Private Sub UserForm_Activate() 'Por.Dante Amor Set h1 = Sheets("BBDD") For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row agregar ComboBox1, h1.Cells(i, "A") Next End Sub ' Sub...

H o l a: Tienes razón, omití esta instrucción: Space:=True Te anexo la macro actualizada: Sub REGISTROS() 'Act.Por.Dante Amor Application.ScreenUpdating = False Application.DisplayAlerts = False Set h1 = Sheets("VISITAS") Set h2 = Sheets("CARTERA") '...

Agrega el siguiente evento a tu formulario Private Sub TextBox1_Change() 'Por.Dante Amor If TextBox1 = "" Or TextBox1 = 0 Or Not IsNumeric(TextBox1) Then Exit Sub horas = Int(Val(TextBox1) / 60) minutos = TextBox1 - (horas * 60) TextBox2 =...

H o l a: La instrucción es correcta, si bien el resultado de la celda se ve vacío, la celda está ocupada por la fórmula. Primero, en la fórmula deberás indicar que el resultado sea "" (vacío) Por ejemplo si tienes esto: =B8+C8 Pero si la celda B8 y...

H o l a: En esta fórmula: Range("Y7:Y920").FormulaLocal = "=P7:P920" Solamente le estás diciendo que Y7 = P7, Y8 = p8, etc. Podría ser así: Range("Y7:Y920").FormulaLocal = "=P7" Supongo que la hoja ya está muy cargada de fórmulas y es por eso que es...

H o l a: Te anexo la macro actualizada Sub CopiarEnResumen() 'Por.Dante Amor Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") u = h1.Range("A" & Rows.Count).End(xlUp).Row + 1 If h1.[A1] = "" Then u = 1 h1.Cells(u, "A") = h2.[B9] h1.Cells(u, "B") =...

H o l a: Cambia esto: Rows(Fila). ClearContents Por esto: Range("B" & Fila & ":F" & Fila).ClearContents Este código selecciona la misma celda 4 veces For i = 1 To 4 Cells(Fila, 1).Activate Next i Es decir, si la variable fila = 2, entonces selecciona...