Problema al copiar datos en hoja distinta

[jose7576]

hola buenas noches. dejo un archivo que e armado con ayuda de los archivos que e bajado de algunas paginas. el problema que no e podido solucionar es que. al pasar los datos de una hoja a otra

me copia los datos en formato numero no en formato fecha como esta en la primera hoja

les dejo el archivo para que si alguien puede ayudarme le estare agradecido

pues solo eso falta para poder usar mi hoja

de antemano gracias

inventario.rar

[Armando Montes]

Hola, cambia el formato de la celda destino a fecha en vez de moneda.

[jose7576]

si es una buena opcion pero para eso tendria que poner toda la fila en formato

fecha y los otros datos que son numeros me estarian quedando mal

pues no tengo celda especifica donde llega el dato depende de la informacion que

tenga la hoja

[jose7576]

no se si se pueda poner un formato condicional desde

el codigo vsb

gracias por su tiempo le agradesco la respuesta

[Armando Montes]

Puedes hacerlo con VBA para cada linea que copies con algo asi:

    Selection.NumberFormat = "m/d/yyyy"

[/CODE]

[jose7576]

gracias por tu respuesta. solo un detalle no encuentro donde agregar tu sugerencia

el codigo que uso es este

Sub prueba_tuve()

Application.ScreenUpdating = False

Dim UltimaFilaCopiar As Long

Dim UltimaFilaPegar As Long

UltimaFilaCopiar = Worksheets("datos").Cells(Rows.Count, "A").End(xlUp).Row

UltimaFilaPegar = Worksheets("Archivo").Cells(Rows.Count, "A").End(xlUp).Row

If UltimaFilaPegar > 1 Then UltimaFilaPegar = UltimaFilaPegar + 3

If MsgBox("¿Desea grabar los datos?", vbYesNo, "Aviso") = vbYes Then

Application.ScreenUpdating = False

'lugar don estan los datos

Sheets("datos").Range("A1:G" & UltimaFilaCopiar).Copy

'lugar donde llegan los datos

Sheets("Archivo").Range("A" & UltimaFilaPegar).PasteSpecial xlPasteValues

'si quiere borrar los datos copiados marcar de donde a donde

'Sheets("Hoja1").Range("A2:I" & UltimaFilaCopiar).ClearContents

Sheets("datos").Select

Range("E3").Select

ActiveCell.Value = Range("E3").Value + 1

Sheets("datos").Select

Range("B13").Select

End If

MsgBox "Listo. Puede continuar"

Application.CutCopyMode = False

'DESMARCAOS LA HOJA

End Sub

-------si me podieras orientar en que parte pongo la condicion que propones

------------------Selection.NumberFormat = "m/d/yyyy"---------------------

gracias

[Armando Montes]

Hola, algo asi, si se complica avisame y lo inluire en tu ejemplo:

        Sheets("Archivo").Range("A" & UltimaFilaPegar).PasteSpecial xlPasteValues

        Hoja1.Activate

        Cells.Find(What:="fecha ", After:=Cells(1, 1), LookAt:=xlWhole, SearchDirection:=xlPrevious).Select

        Selection.Offset(, 1).NumberFormat = "m/d/yyyy"

[/CODE]

[jose7576]

si no es mucha molestia que lo aplique a mi archivo pues yo ya lo puse de varias

maneras y me dice error de ejecución 91

no pude amigo. ese problema tiene tambien la parte de abajo donde dice fecha factura

y donde numero y costo de factura pues se graba como moneda en lugar de numero

lo veo complicado

en caso que no se pueda. le doy las gracias por el tiempo dedicado ami

hoja

gracias.