............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

trasladar datos de columna en misma celda a celdas correlativas

Ver el tema anterior Ver el tema siguiente Ir abajo

trasladar datos de columna en misma celda a celdas correlativas

Mensaje por abuelistos el Vie Sep 23, 2011 2:19 pm

hola mi pregunta es un tanto peculiar en el sentido siguiente:

Tengo una hoja de calculo en el que figuran en la misma linea de celdas fecha de factura, en la siguiente celda nombre del cliente, en la siguiente el nif, en la siguiente la base imponible de la factura al tipo 4% en la siguiente celda con tipo 8%, en la siguiente con el 18% y asi mas datos y en la misma hoja existen mas lineas con esas caracteristicas porque son anotaciones de facturas con varios tipos de iva.

Y lo que quiero hacer es llamar a esos datos desde otra hoja pero que por cada tipo de iva me copie los mismos datos de la factura y el cliente pero que por cada tipo de iva me genere una linea como si fueran facturas distintas pero con los mismo datos de factura y por cada linea que genere sea un tipo de iva distinto, ejemplo

Base 4% Base 8% Base 18% IVA 4% IVA 8% IVA 18%
13.12.11 / perico / fra. nº 1532 / 52313142g / 1000 / 1000 / 1000 / 40 / 80 / 180

Entonces lo que quiero es que los datos fiscales son los mismos y la factura tambien pero los datos en lugar de ponerlos en vertical me los coloque en horizontal quedando de esta manera:

13.12.11 / perico / fra. nº 1532 / 52313142g 1000 40
13.12.11 / perico / fra. nº 1532 / 52313142g 1000 80
13.12.11 / perico / fra. nº 1532 / 52313142g 1000 180

no se si me explicado bien

abuelistos

Masculino Cantidad de envíos : 1
Edad : 49
Ciudad - Pais : españa
Version de Excel : excel 2003 y 2007
Fecha de inscripción : 23/09/2011

Volver arriba Ir abajo

Re: trasladar datos de columna en misma celda a celdas correlativas

Mensaje por moises melgar el Vie Sep 23, 2011 6:22 pm

Te presento un ejemplo
Uso un bucle para transportar los valores
COloque dos ejemplo pero la unica diferencia es que a uno le coloque el .value y el otro use Hoja2.Cells(2 + (3 * x), y).Formula = "='" & ActiveSheet.Name & "'!" & Cells(2 + x, y).Address
Por Eso solo muestro uno de los Dos :

Código:
Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
For x = 0 To 4 ' son 4 filas las que usare
    For y = 1 To 6 ' son 5 columnas a transportar
        Select Case y
            Case 1 To 4 'los primeras 4 columnas se tranportan de tres en tres
        Hoja2.Cells(2 + (3 * x), y).Value = Hoja1.Cells(2 + x, y).Value
        Hoja2.Cells(3 + (3 * x), y).Value = Hoja1.Cells(2 + x, y).Value
        Hoja2.Cells(4 + (3 * x), y).Value = Hoja1.Cells(2 + x, y).Value
            Case 5 To 6 ' los ultimos 2 son las de base e Iva y se relaciona matematicamente asi como la muestro
        Hoja2.Cells(2 + (3 * x), y).Value = Hoja1.Cells(2 + x, (3 * y) - 10).Value
        Hoja2.Cells(3 + (3 * x), y).Value = Hoja1.Cells(2 + x, (3 * y) - 9).Value
        Hoja2.Cells(4 + (3 * x), y).Value = Hoja1.Cells(2 + x, (3 * y) - 8).Value
        End Select
    Next y
Next x
End Sub
Subo el Archivo con los Ejemplos
Archivos
ejemplo transportar.xlsm No tienes los permisos para descargar los archivos.(25 KB) Descargado 7 veces


Última edición por moises melgar el Vie Sep 23, 2011 7:42 pm, editado 2 veces
avatar
moises melgar
Jr_Moderator

Masculino Cantidad de envíos : 550
Edad : 28
Ciudad - Pais : Coatzacoalcos - Mexico
Version de Excel : 2007 - 2010
Fecha de inscripción : 25/05/2010

Volver arriba Ir abajo

Re: trasladar datos de columna en misma celda a celdas correlativas

Mensaje por Cacho R el Vie Sep 23, 2011 7:30 pm

abuelistos escribió:... hola mi pregunta es un tanto peculiar ...
... no se si me explicado bien ...
En rigor de verdad: no se trata de si te has explicado bien, sino de la ubicación de tus datos.

Es decir: si eres un conocedor del tema macros entonces podrás y sabrás adaptar el ejemplo que te muestra moises.

Pero si no lo eres tanto, lo mejor será brindarte un código que esté ajustado -lo más posible- a tus necesidades.

En resumen: ¿Podrías subir a algún servidor público una muestra de tu libro (ambas hojas)?
Saludos, Cacho R.
avatar
Cacho R
Moderador
Moderador

Masculino Cantidad de envíos : 210
Ciudad - Pais : Buenos Aires
Version de Excel : Desde Multiplan (pre-Excel) hasta 2010
Fecha de inscripción : 29/06/2011

Volver arriba Ir abajo

Re: trasladar datos de columna en misma celda a celdas correlativas

Mensaje por moises melgar el Sáb Sep 24, 2011 12:01 am

en este tema en el primer mensaje de Gali el Explica muy detalladamente como subir archivos al foro
A traves del Sky driver
[Tienes que estar registrado y conectado para ver este vínculo]
avatar
moises melgar
Jr_Moderator

Masculino Cantidad de envíos : 550
Edad : 28
Ciudad - Pais : Coatzacoalcos - Mexico
Version de Excel : 2007 - 2010
Fecha de inscripción : 25/05/2010

Volver arriba Ir abajo

Re: trasladar datos de columna en misma celda a celdas correlativas

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.