Dante Amor

Te anexo la macro actualizada Sub SepararTexto() 'Por.Dante Amor Application.ScreenUpdating = False Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") h2.Cells.Clear co2 = "Q" 'columna destino resto h1.Range("A1,J1,K1,N1,O1,X1").Copy h2.[A1]...

H o la : Envíame tu archivo para ver cómo estás cargando los datos en el combo y para ver cómo almacenar los datos en cada hoja. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Cesar Yamil Champi Caquiamarca” y el...

Te anexo la macro Sub CopiarColumnas() 'Por.Dante Amor Columns("A").ClearContents u2 = 1 For i = Columns("B").Column To Columns("UG").Column u1 = Cells(Rows.Count, i).End(xlUp).Row Range(Cells(1, i), Cells(u1, i)).Copy Range("A" & u2) u2 =...

Te anexo el código, pon el código en los eventos de la hoja. Private Sub ComboBox1_DropButtonClick() 'Por.Dante Amor actual = ComboBox1.Value ComboBox1.Clear For Each h In Sheets ComboBox1.AddItem h.Name Next ComboBox1.Value = actual End Sub Si no...

H o la: Es probable que en algún momento hayas ocupado la celda XFD80, o alguna de las celdas de la fila 80 o alguna de las celdas de la columna XFD, es probable que en alguna de esas celdas tengas un espacio; y es por eso que excel trata de imprimir...

Te anexo la macro Sub SumarSueldos() 'Por.Dante Amor Set h1 = Sheets("HOJA DE SUELDOS") Set h2 = Sheets("Reporte") u1 = h1.Range("C" & Rows.Count).End(xlUp).Row u2 = h2.Range("A" & Rows.Count).End(xlUp).Row If u2 < 3 Then u2 = 3 h2.Range("A3:B" &...

Te falta poner la palabra "Set" para establecer el objeto. Set b = basedatos.Range("L3:L500").Find(prov, lookat:=xlPart) También te recomiendo que agregues la propiedad lookat:=xlPart para que te busque parciales dentro de la celda, es decir,...

H o l a : Puedes decirme lo siguiente: Cómo se llaman las hojasCómo se va a llamar el nuevo libroSin formulación, te refieres a que se pongan solamente valoresEl correo se va a enviar por outlookCuál es el destinatarioCuál es el mensaje del...

H o la: Te anexo la macro actualizada: Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim w Set w = ActiveSheet With Application .EnableEvents = False .ScreenUpdating = False End With On Error Resume Next...

Se puede hacer una macro que seleccione, por ejemplo, desde la celda A2 hasta la última fila con datos de la columna A, los copie y los pegue en otra hoja. Pero para hacer la macro, me tienes que decir lo siguiente: Cómo se llama la hoja con...