parmijo

Lo que se me ocurre es esto Range("a1").Value = "'" & TextBox1 Agregar un ' antes del valor del caja de texto, eso si, tienes que tener en cuenta que guardaras los datos como texto no como numero

Verifica esta macro Sub borrar() FilaA = Range("A65536").End(xlUp).Row For x = 1 To FilaA If Cells(x, 1).Font.Bold = False Then Cells(x, 1) = Empty End If Next x Sub borrar() FilaA = Range("A65536").End(xlUp).Row For x = 1 To FilaA If Cells(x,...

Se me ocurre algo así Sub comparar() FilaA = Range("A65536").End(xlUp).Row FilaB = Range("k65536").End(xlUp).Row For x = 1 To FilaA For y = 1 To FilaB If Format(Cells(x, 1).Value, "ddmmyyyy") = Format(Cells(y, 11).Value, "ddmmyyyy") Then Cells(x,...

Bueno la opción 1 es colocar in control de páginas múltiples en el cual puedas realizar opciones, si lo que quieres es realmente hacer un menu en el formulario es un poco complicado pero no imposible hace un tiempo baje un código de la web que tengo...

Podrías probar con este código que me toco realizar en un trabajo al ejecutarla puedes manejar la cantidad de copias que quieras Sub foliar() Dim x2 As String Dim x1 As String Dim x As String Dim res As String x1 = InputBox("Ingrese la celda para...

Si te fijas dentro de las celdas en valor numérico se mantiene o sea con el formato de celdas lo que cambias es como se muestra en N° ejemplo El 234 según formato de celda se muestra así 234 =234 /08/p o 234=234 /09/p Sin embargo el valor de la celda...

Prueba la fórmula de esta manera = "SON" & ":" & " " & letra(A10)&" " & "PESOS M/CTE." & " " & "(" & "$" & " " & TEXTO(A10;"#.##0") & ",ºº" & ")"

Sub Macro1() ult = Sheets("tu_hoja ").Range("D65536").End(xlUp).Row ' D es la culumna de datos For x = 1 To ult Cells(x, 2).Select ' el 2 representa la columna B , 3=c 4=d ... Selection.NumberFormat = "d-mmm-yy" Next x End Sub

Prueba con: Application.ScreenUpdating = False ' al inicio de la macro Application.ScreenUpdating =true ' al final de la macro

La verdad no he trabajado con archivo DBF que tal si me mandas el archivo para ver si podemos ver una solución.