leandropaul

Tengo el código dentro unos momentos te lo pongo

Disculpa que no te haya respondido pero ando demasiado ocupado pero bueno Esta seria una solución. For x = 8 To 20 For y = 1 To 6 If Cells(x, y).Value = TextBox1.Value Then `aca le pones el resultado que desees Cells(x, y + 1).value = resultado End...

No te entendí muy bien pero bueno. Antes de poner el nombre del textbox agregale el nombre del userform Userform2.Textbox1.value= Userform1.Textbox2.value

B uen dia Raul! Esta macro la ejecutas en al hoja donde tengaslos datos que deseas copiar y la ruta la cambias y pones la hoja ala cual vas a pasar los datos Sub Pasar() fin = Sheets("Hoja1").Range("a65500").End(xlUp).Row Range("a1", "a" &...

Ignacio Box La Macro debería quedar así Sub Condicional() fin = Sheets("hoja1").Range("a65536").end(x1up).row + 1 for x = 1 To fin If Cells(x, 1).Value = "EOK" Or Cells(x, 1).Value = "PAG" Then sig = Cells(x, 3) Select Case sig Case "0" Cells(x,...