Tengo una duda: tengo dos archivos de excel, el primero de ellos tiene macros. El segundo es el archivo origen, ya que de este tengo que copiarme una serie de datos los cuales tienen un formato distinto al primero. Cómo puedo hacer para que al pegar los datos que me copio del segundo archivo tomen el mismo formato que esta establecido en el primero (archivo excel destino)?
Parte del código donde hago el cambio de formato es el siguiente (este solo funciona si copio y pego los datos en el mismo archivo):
Case FormatoCedula
Valor = Trim(CStr(Hoja.Cells(Rango.Row, Columna).Value))
If (Len(Valor) > Tamano) Then
Hoja.Cells(Rango.Row, Columna).Select
MsgBox "En este campo sólo acepta hasta " & Tamano _
& " valores numéricos", _
vbOKOnly + vbCritical, ""
End If
If (ValorInicial "" And Editable = "N") Or (Editable = "S" And ValorInicial "" And Valor = "") Then
Valor = ValorInicial
End If
If (Formato = FormatoAlfanumerico Or Formato = FormatoCedula) And (Rellenar = "S" Or RellenarEsp = "S") Then
If Len(Valor) > 0 And Len(Valor) < Tamano And Rellenar = "S" Then
Valor = String(Tamano - Len(Valor), "0") & Valor
ElseIf Len(Valor) = 0 And RellenarEsp = "S" And Obligatorio = "N" Then
Valor = String(Tamano, " ")
ElseIf Len(Valor) > 0 And Len(Valor) < Tamano And RellenarEsp = "S" Then
Valor = Valor & String(Tamano - Len(Valor), " ")
End If
End If
Hoja.Cells(Rango.Row, Columna).Value = Valor
En la linea resaltada en rojo ya tengo el valor formateado pero no lo veo en el excel..... Y no entiendo el por qué Alguien que me pueda ayudar se lo agradeceré enormemente
El administrador ha desactivado el acceso público de escritura.
Alguien que me pueda ayudar se lo agradeceré enormemente 
Agregar Sitio a Favoritos
Agregar Página a Favoritos
Hacer Página de Inicio