Aneudys Martinez

Feliz navidad, Disculpa la tardanza prueba estas a ver si te ayuda En el un modulo copia esta macro sub revisarfechas () 'Aneudys01 Set h1 = sheets("hoja1") c = "M" For i = 3 To h1.Range(c & Rows.Count).End(xlUp).Row h1.Cells(i,...

[email protected] me puede enviar el archivo para ver tu solicitud y ver si et puedo ayudar

Feliz navidad, Perdona la tardanza seria de esta manera SUB COMPDATOS () Application.ScreenUpdating = FALSE Sheets("hojaB").Select Range("a2").Select 'aneudys01 Do While ActiveCell.Value <> "" dato = ActiveCell.Value Set busca =...

Podrias motyranos tu hoja asi tener una ideas de lo que necesitas y si tiene alguna macro para mejorartela

Prueba este a ver si te ayuda seria así Private Sub TextBox1_Change() Select Case Len(TextBox1) Case 3 TextBox1.Value = TextBox1.Value & "-" Case 8 TextBox1.Value = TextBox1.Value & "-" End Select End Sub textbox1 = al nombre de tu textbox no olivdes...

Solo tiene que ajustarlo a tus columnas Presiona alt + f11 esto te llevara al editor de vba aquí inserta in modulo y copia esta macro Luego inserta un botón y agregale esta macro Suponiendo que la columna No° es la columna A Debe es la columna B...

Presentanos la macro que tiene y la hoja si es en excel para ver como podemos ayudarte

Prueba este a ver si te silve Sub MsgboxTime() ' ' aneudys01 Dim AckTime As Integer Dim InfoBox As Object Set InfoBox = CreateObject("WScript.Shell") AckTime = 3 Select Case InfoBox.Popup("Click OK or do nothing within 3 seconds.", _ AckTime, "This...

No dice donde se copiara el Nuevo NO° en el caso que fuese en la próxima celda en blanco Seria así sub busca() Dim rango Set rango = Sheets("hoja1").Range("b2:b13") Set busca = rango.Find(Application.WorksheetFunction.Max(rango), LookIn:=xlValues,...

Presentanos tu macro parta ver en que te pordemos ayudar y Por lo que entendí solo quieres enviar la hoja informe, No el libro entero