Dante Amor

H o l a: Una de las ventajas de utilizar las variables como objetos es para simplificar el código. También, cuando utilizas varias veces el mismo rango, es más práctico escribir una variable que repetir nuevamente el rango, por ejemplo: Sin...

H o l a: Te anexo una macro para copiar la tercera hoja del libro "fichero_red.xlsm" Sub CopiarHoja() 'Por.Dante Amor Application.ScreenUpdating = False Set l1 = ThisWorkbook ' rutared = "\\Damor2\Blog\" archivored = "fichero_red.xlsm" Set l2 =...

H o l a: Envíame tu archivo y me explicas con detalle un ejemplo de lo que quieres. En la hoja me explicas el ejemplo con colores, comentarios, imágenes, con todo lo que tengas, pero me explicas el ejemplo. Mi correo [email protected] En el asunto...

H o l a: Tienes pendiente valorar esta respuesta: ¿Cómo identificar la posición de la pantalla en donde hay un cambio de página en la impresión de excel, con código vba? ¿El combo es control de activex que pusiste en la hoja o es un combo de userform?

Te anexo el código para buscar un valor en el rango que pusiste. Cambia 123 por el valor que vas a buscar En la macro te puse un ejemplo para escribir en la fila encontrada, columna G "algún dato": Sub BuscarFila() 'Por.Dante Amor num = 123 Set r =...

H o l a: Si solamente tienes un punto y después del punto van 2 dígitos, entonces así: Sub Reemplazar() x = ".30" Selection.Replace What:=".??", Replacement:=x, LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _...

H o l a: Todo depende de la necesidad que tengas. Ambas sentencias te van a traer la última fila de la columna A que tenga datos. Ejemplo, si los datos estuvieran así: Ambas macros te traen el número 5. Pero si los dato estuvieran así: La primera...

H o l a: Te anexo la macro Private Sub CommandButton1_Click() 'Por.Dante Amor If Not IsDate(ComboBox1) Then Exit Sub ' fec = CDate(ComboBox1) x = 1 n = Cells(1, Columns.Count).End(xlToLeft).Column Do While True For i = 1 To n If Cells(1, i) = fec...

H o l a: La hoja "descanso" tiene fórmulas con referencias circulares, por ejemplo, esta fórmula está en la celda DA13 y dentro de la fórmula hace referencia a la misma celda DA13...

H o l a: Te anexo el código actualizado Dim h1 'Por.Dante Amor Private Sub ComboBox1_Change() cargar 2 End Sub Private Sub ComboBox2_Change() cargar 3 End Sub Private Sub ComboBox3_Change() cargar 4 End Sub Private Sub ComboBox4_Change() cargar 5 End...