copiar valores segun condicion y pegar en otra hoja

[SebastianFelipe]

Saludos a todos, estoy buscando la manera de poder realizar un resumen de un presupuesto de manera automática. Este resumen debería llevar el nombre de un item, y además el subtotal a pagar por...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

Prueba esta macro:

Sub Subtotalizar()
Dim CeldaIni As Integer
Dim Ítem As String
Dim DescripciónÍtem As String
Dim Filas As Integer

Application.ScreenUpdating = False
Set Final =...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[SebastianFelipe]

Hola don Macro Antonio, muchas gracias por su respuesta y ayuda.

Es precisamente lo que necesito, solo he detectado que cuando supera los 9 items, comienza a insertar datos hasta este número y...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

Prueba ahora.

 

[SebastianFelipe]

Hola don Antoni, le cuento que si bien se solucionó el tema de los items y ahora si los contabiliza de una manera correcta, hay algunos items que si tienen un espacio en medio, Le explico con un...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

Hace falta un criterio claro para poder reconocer los títulos de los ítems, si no, esto no esto va a ser un problema constante.

 

[SebastianFelipe]

Estoy muy de acuerdo con usted. Es posible un criterio sea que "siempre termine con un punto (.)" Digo esto puesto que es lo único que se me ocurre y usted es el experto que me podrá decir si es...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

Así funciona en base a encontrar un punto en la última posición.

Sub Subtotalizar()
Dim CeldaIni As Integer
Dim Ítem As String
Dim DescripciónÍtem As String
Dim Filas As Integer...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[SebastianFelipe]

Grandioso, me ha funcionado a la perfección. Se lo agradezco enormente, sobretodo por darse el tiempo de entregarme una propuesta sólida. Mis sinceros respetos, don Antoni.