Dante Amor

Te falta copiar la fila y también indicar en dónde la quieres insertar. En el siguiente ejemplo, copio la fila con el nombre "eparedes" y la inserto antes de la fila 9 Sub cpareces() ' Cpareces Macro Range("eparedes"). Copy Rows(9).Insert...

Te anexo la macro con las validaciones Private Sub commandbutton1_click() Dim fila As Long 'VALIDACIONES If TextBox1.Value = "" Then MsgBox "Captura un dato en textbox1", vbExclamation TextBox1.SetFocus Exit Sub End If ' Set b =...

Te anexo la macro actualizada En la hoja "Datos a Buscar" los datos deberán estar en la columna "A" y empezar en la fila 2. El resultado te lo pondrá en la columna "B" Sub Buscar_Palabras() 'Act Por Dante Amor Set h1 = Sheets("Datos a Buscar") Set h2...

Te anexo la macro. Sub Macro1() With Range("A2:A" & Range("B" & Rows.Count).End(xlUp).Row) .Formula = "=IF(ISTEXT(R[-1]C[1]),1,IF(MONTH(R[-1]C[1])=MONTH(RC[1]),R[-1]C+1,1))" .Value = .Value End With End Sub [Sal u dos

Puedes explicar un ejemplo con datos reales, utilizando imágenes de lo que tienes en el userform, qué tienes en la hoja y qué resultado esperas. Procura que se vean las filas y las columnas de la hoja de excel.

Te anexo el código para que adaptes tu macro Sub Buscar_Letra() Set b = Columns("A").Find("a", lookat:=xlWhole, LookIn:=xlValues) If Not b Is Nothing Then ' 'inicio de tu macro 'aquí debe ir el código de tu macro ' ' 'FIN DE TU MACRO Else MsgBox "No...

Quedaría así: Sub LoopThroughFiles() ruta = Sheets("EXPORTACIÓN").Range("K4").Value If Right(ruta, 1) <> "\" Then ruta = ruta & "\" xFileName = Dir(ruta & "*.xls*") Do While xFileName <> "" With Workbooks.Open(ruta & xFileName) 'your code here End...

Puedes poner un par de imágenes explicando cómo están tus datos y qué resultado esperas después de la macro. Procura que en las imágenes se vean las filas y las columnas de excel.

Así quedaría tu macro: Sub mimacro() n = Sheets.Count If ActiveSheet.Index = n Then Sheets(1).Select Else ActiveSheet.Next.Select End If Range("A1").Select Call programarmacro End Sub '.[Sal u dos. No olvides valorar la respuesta.

Te anexo la macro actualizada. Cambié la forma de buscar por el método .Find También cambié los If's por un Case, me parece que es más práctico y también le da más claridad al código. Para limpiar los optionbutton se deben limpiar la inicio del...