parmijo

Puedes utilizar un control de errores.. Casi al principio del código puedes colocar ON Error GOTO Saltar: Con esta linea le dices que si hay un error dentro del código se salte a donde esta la etiqueta Saltar: ON Error GOTO Saltar: TU búsqueda..( Si...

Puedes ocupar una macro algo como esto: Sub SUMA_Hojas() Dim n As Integer Dim HOJA As String CELDA35 = 0 For n = 1 To Worksheets.Count HOJA = Worksheets(n).Name If HOJA = "SUMAS" Then ' "SUMAS" corresponde al nombre de la hoja de totales, para que...

Tal vez te convenga dejar congelada la pantalla para evitar el parpadeo Agrega al principio de tu consigo Application.ScreenUpdating=False ' tu codigo y al final Application.ScreenUpdating=True Con esto se evita el parpadeo ..

Si es posible te adjunto la macro: Sub cambiar() If Cells(6, 10).Value < Cells(3, 1).Value Then valor1 = Cells(6, 10).Value valor2 = Cells(3, 1).Value Cells(6, 10).Value = valor2 Cells(3, 1).Value = valor1 End If End Sub

Supongamos que los datos se encuentran dentro de la columna A y las fórmulas se copiarán a la Columna B Sub Formulas() ult = Range("A65536").End(xlUp).Row For x = 1 To ult If Cells(x, 1).Value = "" Or Cells(x, 1).Value = Empty Then Else Cells(x,...

Mandame un correo con tu archivo para realizar la macro .. [email protected]

Prueba con lo siguiente Private Sub CommandButton1_click() IF Optionbutton1 = true ' si esta activado textbox1.value= val(Textbox1.value) +1 else extbox1 = "" end if end sub

La fórmula si pude devolver en contenido N° o Texto en B3 Si(B2="Nombre del proveedor";N°_de_factura;"") Ademas para N°_de_factura puedes utilizar la función buscarv() para buscar en alguna base de datos el n° correspondiente al proveedor saludos

Suponiendo que la lista despegable esta en A1 la formula sería algo así como : =Sumar.si(INDIRECTO(A2&"!F:F");Alimentos1;INDIRECTO(A2&"!D:D")) Cualquier duda me avisas.

No estoy realmente seguro de esto, porque no he probado, pero creo que estepodría funcionar: Puebalo: chk.LinkedCell = Sheets("hoja4").Range("a1") _ .Offset(estnum, 0).Address(external:=true)