Adriel Ortiz Mangia

[Hola Te paso la macro para el botón del formulario login Private Sub CommandButton1_Click() 'Por Adriel ' 'login Select Case TextBox1 Case "clave1" With UserForm2 .CommandButton1.Enabled = True .CommandButton2.Enabled = True .CommandButton3.Enabled...

[Hola Prueba con esto Valora la respuesta para finalizar saludos! Sub eliminar() col = "A" ' columna código codigo = "101" ' Set r = Columns(col) Set b = r.Find(codigo, lookat:=xlWhole) If Not b Is Nothing Then 'encuentra los datos y limpia la fila...

[Hola prueba así Private Sub CommandButton1_Click() ' col = "A" ' columna a buscar Set r = Columns(col) Set b = r.Find(TextBox1, lookat:=xlWhole) If Not b Is Nothing Then 'encuentra los datos f = b.Row TextBox2 = Cells(f, "B") Else MsgBox "No existe...

[Hola Te paso la macro Valora la respuesta para finalizar saludos! Private Sub CommandButton1_Click() 'Por Adriel Ortiz 'https://www.todoexpertos.com/preguntas/ Application.ScreenUpdating = False ' Set h = Sheets("Hoja1") ' cambia el nombre de la...

[Hola En el evento change de tu hoja pon esta macro Private Sub Worksheet_Change(ByVal Target As Range) ' col = "B:B" ' columna stock col2 = "C" ' columna recompra ' If Not Intersect(Target, Range(col)) Is Nothing Then If Target.Count > 1 Then Exit...

[Hola revisa este vídeo https://www.youtube.com/watch?v=mihVMlKrXbM

[Hola Prueba esto y me comentas La macro busca el SKU en la celda "G2" de todas las hojas y pega los datos en las celdas fijas G7, H7 Sub Poner_datos() 'Por Adriel Ortiz ' For Each h In Sheets Set h1 = Sheets("Hoja1") ' Cambia el nombre de la hoja...

[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...

Antes vaciar los datos a la hoja pon If textbox1 ="" anda textbox2="" then Msgbox "ingrese los datos obligatorios" Exit sub End if Agregar para el resto

[Hola Te paso la macro Sub copiar() 'Por Adriel Ortiz Mangia ' For i = 1 To Range("A" & Rows.Count).End(xlUp).Row Set b = Rows(i).Find(Cells(i, "A"), lookat:=xlPart) If Not b Is Nothing Then col = b.Column Cells(i, "B") = Cells(i, col) 'Cells(i,...