James Bond

Vamos por partes la macro que te pase para hacer lo que pides efectivamente no funciona por la siguiente razón: no estas especificando exactamente que quieres tus explicaciones son muy vagas solo dices quiero que corra desde la hoja detalle diario...

Necesitas una condición para poner esos valores como vacíos por ejemplo if bultos=0 then cant01=empty else cant01=Val(TextCant02.Text) Endif Lo que tienes que definir es bajo que condición quieres que pase esto, a como planteas tu requerimiento esta...

Prueba con esta macro, este es el resultado final y esta es la macro Sub INSERTAR_FILA() Set DATOS = Range("A1").CurrentRegion With DATOS filas = .Rows.Count For i = 2 To filas otro: bruto = .Cells(i, 2): exento = .Cells(i, 3) If IsEmpty(exento) =...

Prueba esta macro Sub folios() inicio = Range("b1"): Final = Range("b2"): resta = Final - inicio + 4 If inicio > Final Then MsgBox ("folio inicial no puede ser mayor que el final"), vbCritical, "AVISO": End Range("A4").Value = inicio...

Esta macro lee una columna en este ejemplo producto si encuentra en la columna b alguna columna vacía genera un numero de código aleatorio de 4 cifras que compara con los ya existentes si ya existe lo descarta y genera otro numero, también coloca el...

Bloquealo, no des de alta a gente que no conozcas en la realidad, si te amenazo guarda la pantalla y si así lo deseas pon una denuncia en la policía cibernética de tu país además reportalo a facebook creo que tienen entre sus opciones reportar por...

¿Ya intentaste?, por poner un ejemplo Textbox1.text=val(textbox1.text), porlo general todo lo que captures en un textbox lo va a pasar a texto por eso hay que convertirlo a numero con val cuando se requiere.

Checa esta macro, en la imagen te pongo el resultado de la comparación Sub compara_datos() Set origen = Worksheets("hoja1").Range("a1").CurrentRegion Set h2 = Worksheets("hoja2") Set destino = h2.Range("a1").CurrentRegion With origen filas =...

Le falta lo siguiente a tu macro añadir la instruccion que los pegue como valores. Sub Copiar_Datos() Set H1 = Sheets("orden de compra") 'hoja origen Set h2 = Sheets("Auxiliar Provisorio") 'hoja destino u2 = h2.Range("B" & Rows.Count).End(xlUp).Row +...

Lo más fácil posible es así, estando en cualquier hoja de puedes pasar a la que quieras solo seleccionándola