Adriel Ortiz Mangia

[Hola Pon la macro para actualizarlo

[hola Para validar usa la instrucción if..then Por ejemplo If textbox1 ="" then Msgbox "falta datos en el textbox1" Exit sub End if ' If textbox2="" then Msgbox "falta datos en el textbox2" Exit sub End if En el combobox has el mismo proceso

[Hola Te paso la macro actualizada Sub CombinarCeldas() 'Por.Dante Amor 'Act. Adriel ortiz ' Application.ScreenUpdating = False Application.DisplayAlerts = False ini = 1 ant = Cells(ini, "B") For i = ini To Range("B" & Rows.Count).End(xlUp).Row + 1...

[Hola Te paso la macro Sub DeleteRow() ' '[Por Adriel Ortiz ' Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' dato = h1.[C3] Set b = h2.Columns("D").Find(dato, lookat:=xlWhole) If Not b Is Nothing Then h2.Rows(b.Row).Delete Else MsgBox "el # de...

[Hola Aquí las instrucciones para hacerlo con textbox ya que inputbox no tiene esa opción Como hacer un formulario de acceso a otro formulario principal mediante usuario y contraseña en Visual Basic.

[Hola Te paso la macro, cambia el nombre de la hoja por el tuyo Valora la respuesta para finalizar saludos! Sub Transponer() 'Por.Dante Amor 'Act. Adriel Ortiz ' Application.ScreenUpdating = False Set h1 = Sheets("Hoja2") 'hoja origen j = 3 For i = 3...

[Hola esto para validar el textbox If Len(TextBox1) < 5 Then MsgBox "No se permite menos de 5 caracteres": Exit Sub Valora la respuesta para finalizar saludos!

[Hola Te paso la macro actualizada Sub estado() Dim i As Integer For i = 4 To 20 If Cells(i, 2).Value = "Ausente" Then Cells(i, 1).Resize(1, 8).Interior.ColorIndex = 6 Cells(i, 1).Resize(1, 8).Font.Bold = True End If Next i End Sub valora para finalizar

[Hola Te paso la macro Sub macro1() ' 'Por Adriel ' For i = 2 To Range("A" & Rows.Count).End(xlUp).Row If Cells(i, "A") > 0 Then Cells(i, "B") = "SI" Else Cells(i, "B") = "NO" End If Next i ' MsgBox "Fin" End Sub valora la respuesta como +Excelente o...

[Hola Te paso la macro Valora la respuesta para finalizar Sub comparar() '[Por Adriel Ortiz Mangia Set h1 = Sheets("Hoja1") ' For i = 3 To h1.Range("J" & Rows.Count).End(xlUp).Row Set b = h1.Range("B:B").Find(h1.Cells(i, "J"), lookat:=xlPart) If Not...