James Bond

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

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

Prueba esta macro, recorre las hojas del libro, busca las tablas y las ordena por orden descendente en la columna A, solo adáptala a tus necesidades. Sub ordena_tablas() Dim tbl As ListObject For Each nhoja In Worksheets Set h1 =...

Lo que pides no es posible por esta simple razón no hay en las propiedades del textbox en formularios la alineación vertical no esta soportada lo mejor que puedes utilizar es el función autosize o bien aumentar el numero de la letra hasta que quepa...

Prueba esta macro Sub compara_columnas() Set datos = Range("a1").CurrentRegion With datos filas = .Rows.Count For i = 1 To filas cadena = Right(.Cells(i, 1), 4) cadena2 = Right(.Cells(i, 2), 4) If cadena <> cadena2 Or cadena2 = 0 Then...