seleccionar solo las celdas que tienen datos

[rapidito78840]

Buenas tardes: espero y por favor me pudieran dar ayuda con este archivo. esta es la historia, tengo una archivo en donde hay varios datos, pero algunos de ellos solo tienen texto y no tienen cantidades, otros estan en blanco.
lo que hago es que copio toda la hoja, la pasteo en otra hoja y luego elimino todos los renglones que no necesito.
para este ejemplo solo he seleccionado un determinado numero de renglones, pero hay mas. y para cuestiones practicas los que eliminaria son los que he puesto de color ( aunque en el archivo original no hay con color )
por favor tomen en cuenta que :

1.-algunos solo tienen texto con numeros "0" estos se eliminan
2.-algunos solo tienen "0" con "0" estos tambien se eliminan
3.-algunos son renglones en blanco en medio de los que tienen informacion, estos tambien se eliminan.

creo que a lo mejor alguna macro pudiera servir, donde me deje elegir el rango de celdas a seleccionar, luego que las pase a una nueva hoja, luego que elimine las que no se necesitan.

no pude subir un archivo ni nada parecido al foro.. pero aqui subi el archivo de excel para que por favor lo bajen y lo puedan ver, se los agradeceria mucho...

Download sin_renglones_blancos xlsx, fast and secure downloading from crocko.com

sin renglones blancos.xlsx - 4shared.com - online file sharing and storage - download
saludos y gracias

 

[rapidito78840]

Excel 2010
	C	D	E	F	G	H	I	J	K	L	M
4	asi esta						asi debe quedar
5	C	D	E	F	G		C	D	E	F	G
6			Parcial	Debe	Haber				Parcial	Debe	Haber
7	Gastos de Operacion			60,870.55			Gastos de Operacion			60,870.55
8		Materiales	31,313.01					Materiales	31,313.01
9		Arts . Limpieza	0.00					Luz Agua Gas	11,933.47
10		Luz Agua Gas	11,933.47					Tel Tel Correos	1,673.01
11		Tel Tel Correos	1,673.01					Pub y Prop	287.07
12		Servicios	0.00					Arts Escritorio	558.56
13		Pub y Prop	287.07					Varios	11,442.16
14		Arts Escritorio	558.56					Gasolina y Lub	2,435.84
15		Mto. Local	0.00					Comis Banc	1,227.43
16		Cuotas y Susc	0.00					IVA		5,806.31
17		Fletes	0.00					IDE Retenido		2,826.00
18		Varios	11,442.16					Ctas x Pagar		139,059.27	185.28
19		Interes Banc	0.00					Bancos			208,376.85
20		Aguinaldos	0.00							208,562.13	208,562.13
21		0.00	0.00
22		Gasolina y Lub	2,435.84
23		Mto. Local	0.00
24		Comis Banc	1,227.43
25		0.00	0.00
26		0.00	0.00
27		0.00	0.00
28		0.00	0.00
29		0.00	0.00
30		0.00	0.00
31		1% Nominas	0.00
32		Imss	0.00
33		Afore Imss	0.00
34		Infonavit	0.00
35		Sueldos	0.00
36
37		IVA		5,806.31
38		Ispt Retenido			0.00
39		Ispt Pagado		0.00
40
41		Imss Retenido		0.00	0.00
42
43
44		ISR Bancos		0.00
45		ISR Recaud		0.00
46		IETU		0.00
47		IDE Retenido		2,826.00
48		Credito al Salario		0.00
49		Pension Alim		0.00	0.00
50		Ctas x Pagar		0.00
51		Dep. En Garantia		0.00
52		Ctas x Cobrar		0.00	0.00
53		Infonavit		0.00	0.00
54		Ctas x Pagar		139,059.27	185.28
55		6.00		0.00	0.00
56		8.00		0.00	0.00
57		10.00		0.00	0.00
58		12.00		0.00	0.00
59		Bancos			208,376.85
60				208,562.13	208,562.13
61
Hoja1

 

[bmacias]

Sub myDeleteRows()

Dim MyCol As String
Dim MyVal As Variant
Dim i As Integer

MyCol = InputBox("Columna donde buscar", "Column Search", "A")
MyVal = InputBox("Valor a buscar", "search value", 0)
For i = 1 To Range(MyCol & "65536").End(xlUp).Row Step 1
If Application.WorksheetFunction.CountIf(Range("A" & i & ":AZ" & i), MyVal) > 0 Then
Range("A" & i).EntireRow.Delete
End If
Next i

End Sub

Se lo piratie a scotaweful de este mismo foro.

Saludos,

Benjamin

 

[rapidito78840]

bien... deja lo pruebo y gracias por tu ayuda...

 

[rapidito78840]

bien... deja lo pruebo y gracias por tu ayuda...

no halle donde editar el post.... pero era para agregar esto:

Benjamin: muchas pero muchas gracias por responder al post y por tu ayuda... gracias y voy a probarlo hasta mañana, ya que no tengo la pc con el archivo en esta pc... espero poder instalarlo y probarlo, ya que no se mucho de macros, pero la lucha le voy a hacer... saludos y de nuevo muchas gracias por tu atencion !

 

[rapidito78840]

Sub myDeleteRows()

Dim MyCol As String
Dim MyVal As Variant
Dim i As Integer

MyCol = InputBox("Columna donde buscar", "Column Search", "A")
MyVal = InputBox("Valor a buscar", "search value", 0)
For i = 1 To Range(MyCol & "65536").End(xlUp).Row Step 1
If Application.WorksheetFunction.CountIf(Range("A" & i & ":AZ" & i), MyVal) > 0 Then
Range("A" & i).EntireRow.Delete
End If
Next i

End Sub

Se lo piratie a scotaweful de este mismo foro.

Saludos,

Benjamin

no lo supe poner o no funciono como yo esperaba, cuando le pongo correr el macro, me sale una ventana donde me dice por supuesto la columna donde buscar y algo mas, aun poniendole la columna a buscar, despues no hace nada....

practicamente este es el ejemplo de los datos... aqui he marcado las celdas amarillas que deben desaparecer...

Excel 2010
	A	B	C	D	E	F	G	H	I
1		Parcial	Debe	Haber			Parcial	Debe	Haber
2	Gastos de Operacion		60,870.55			Gastos de Operacion		63,025.05
3	Materiales	31,313.01				Materiales	0.00
4	Arts . Limpieza	0.00				Arts . Limpieza	0.00
5	Luz Agua Gas	11,933.47				Luz Agua Gas	0.00
6	Tel Tel Correos	1,673.01				Tel Tel Correos	0.00
7	Servicios	0.00				Servicios	0.00
8	Pub y Prop	287.07				Pub y Prop	0.00
9	Arts Escritorio	558.56				Arts Escritorio	0.00
10	Mto. Local	0.00				Mto. Local	0.00
11	Cuotas y Susc	0.00				Cuotas y Susc	0.00
12	Fletes	0.00				Fletes	70.00
13	Varios	11,442.16				Varios	612.79
14	Interes Banc	0.00				Interes Banc	0.00
15	Aguinaldos	0.00				Aguinaldos	0.00
16	0	0.00				0	0.00
17	Gasolina y Lub	2,435.84				Gasolina y Lub	0.00
18	Mto. Local	0.00				Mto. Local	0.00
19	Comis Banc	1,227.43				Comis Banc	0.00
20	0	0.00				0	0.00
21	0	0.00				0	0.00
22	0	0.00				0	0.00
23	0	0.00				0	0.00
24	0	0.00				0	0.00
25	0	0.00				0	0.00
26	1% Nominas	0.00				1% Nominas	0.00
27	Imss	0.00				Imss	0.00
28	Afore Imss	0.00				Afore Imss	0.00
29	Infonavit	0.00				Infonavit	0.00
30	Sueldos	0.00				Sueldos	62,342.26
31
32	IVA		5,806.31			IVA		62.81
33	Ispt Retenido			0.00		Ispt Retenido			2,277.02
34	Ispt Pagado		0.00			Ispt Pagado		0.00
35
36	Imss Retenido		0.00	0.00		Imss Retenido		0.00	1,593.79
37
38
39	ISR Bancos		0.00			ISR Bancos		0.00
40	ISR Recaud		0.00			ISR Recaud		0.00
41	IETU		0.00			IETU		0.00
42	IDE Retenido		2,826.00			IDE Retenido		0.00
43	Credito al Salario		0.00			Credito al Salario		309.17
44	Pension Alim		0.00	0.00		Pension Alim		0.00	1,344.80
45	Ctas x Pagar		0.00			Ctas x Pagar		0.00
46	Dep. En Garantia		0.00			Dep. En Garantia		0.00
47	Ctas x Cobrar		0.00	0.00		Ctas x Cobrar
48	Infonavit		0.00	0.00		Infonavit		0.00	3,883.77
49	Ctas x Pagar		139,059.27	185.28		Ctas x Pagar		0.00	0.00
50	6		0.00	0.00		6		0.00	0.00
51	8		0.00	0.00		8		0.00	0.00
52	10		0.00	0.00		10		0.00	0.00
53	12		0.00	0.00		12		0.00	0.00
54	Bancos			208,376.85		Caja			54,297.65
55			208,562.13	208,562.13				63,397.03	63,397.03
antes

Cell Formulas
Range	Formula
B1	Parcial
B3	31313.01
B4	0
B5	11933.47
B6	1673.01
B7	0
B8	287.07
B9	558.56
B10	0
B11	0
B12	0
B13	11442.16
B14	0
B15	0
B16	0
B17	2435.84
B18	0
B19	1227.43
B20	0
B21	0
B22	0
B23	0
B24	0
B25	0
B26	0
B27	0
B28	0
B29	0
B30	0
C1	Debe
C2	60870.55
C32	5806.31
C34	0
C36	0
C39	0
C40	0
C41	0
C42	2826
C43	0
C44	0
C45	0
C46	0
C47	0
C48	0
C49	139059.27
C50	0
C51	0
C52	0
C53	0
C55	208562.13
D1	Haber
D33	0
D36	0
D44	0
D47	0
D48	0
D49	185.28
D50	0
D51	0
D52	0
D53	0
D54	208376.85
D55	208562.13
G1	Parcial
G3	0
G4	0
G5	0
G6	0
G7	0
G8	0
G9	0
G10	0
G11	0
G12	70
G13	612.79
G14	0
G15	0
G16	0
G17	0
G18	0
G19	0
G20	0
G21	0
G22	0
G23	0
G24	0
G25	0
G26	0
G27	0
G28	0
G29	0
G30	62342.26
H1	Debe
H2	63025.05
H32	62.81
H34	0
H36	0
H39	0
H40	0
H41	0
H42	0
H43	309.17
H44	0
H45	0
H46	0
H48	0
H49	0
H50	0
H51	0
H52	0
H53	0
H55	63397.03
I1	Haber
I33	2277.02
I36	1593.79
I44	1344.8
I48	3883.77
I49	0
I50	0
I51	0
I52	0
I53	0
I54	54297.65
I55	63397.03
A2	Gastos de Operacion
A3	Materiales
A4	Arts . Limpieza
A5	Luz Agua Gas
A6	Tel Tel Correos
A7	Servicios
A8	Pub y Prop
A9	Arts Escritorio
A10	Mto. Local
A11	Cuotas y Susc
A12	Fletes
A13	Varios
A14	Interes Banc
A15	Aguinaldos
A16	0
A17	Gasolina y Lub
A18	Mto. Local
A19	Comis Banc
A20	0
A21	0
A22	0
A23	0
A24	0
A25	0
A26	1% Nominas
A27	Imss
A28	Afore Imss
A29	Infonavit
A30	Sueldos
A32	IVA
A33	Ispt Retenido
A34	Ispt Pagado
A36	Imss Retenido
A39	ISR Bancos
A40	ISR Recaud
A41	IETU
A42	IDE Retenido
A43	Credito al Salario
A44	Pension Alim
A45	Ctas x Pagar
A46	Dep. En Garantia
A47	Ctas x Cobrar
A48	Infonavit
A49	Ctas x Pagar
A50	6
A51	8
A52	10
A53	12
A54	Bancos
F2	Gastos de Operacion
F3	Materiales
F4	Arts . Limpieza
F5	Luz Agua Gas
F6	Tel Tel Correos
F7	Servicios
F8	Pub y Prop
F9	Arts Escritorio
F10	Mto. Local
F11	Cuotas y Susc
F12	Fletes
F13	Varios
F14	Interes Banc
F15	Aguinaldos
F16	0
F17	Gasolina y Lub
F18	Mto. Local
F19	Comis Banc
F20	0
F21	0
F22	0
F23	0
F24	0
F25	0
F26	1% Nominas
F27	Imss
F28	Afore Imss
F29	Infonavit
F30	Sueldos
F32	IVA
F33	Ispt Retenido
F34	Ispt Pagado
F36	Imss Retenido
F39	ISR Bancos
F40	ISR Recaud
F41	IETU
F42	IDE Retenido
F43	Credito al Salario
F44	Pension Alim
F45	Ctas x Pagar
F46	Dep. En Garantia
F47	Ctas x Cobrar
F48	Infonavit
F49	Ctas x Pagar
F50	6
F51	8
F52	10
F53	12
F54	Caja

y asi deberia de quedar:

Excel 2010
	A	B	C	D	E	F	G	H	I
1		Parcial	Debe	Haber			Parcial	Debe	Haber
2	Gastos de Operacion		60,870.55			Gastos de Operacion		63,025.05
3	Materiales	31,313.01				Fletes	70.00
4	Luz Agua Gas	11,933.47				Varios	612.79
5	Tel Tel Correos	1,673.01				Sueldos	62,342.26
6	Pub y Prop	287.07				IVA		62.81
7	Arts Escritorio	558.56				Ispt Retenido			2,277.02
8	Varios	11,442.16				Imss Retenido		0.00	1,593.79
9	Gasolina y Lub	2,435.84				Credito al Salario		309.17
10	Comis Banc	1,227.43				Pension Alim		0.00	1,344.80
11	IVA		5,806.31			Infonavit		0.00	3,883.77
12	IDE Retenido		2,826.00			Caja			54,297.65
13	Ctas x Pagar		139,059.27	185.28				63,397.03	63,397.03
14	Bancos			208,376.85
15			208,562.13	208,562.13
despues

Cell Formulas
Range	Formula
B1	Parcial
B3	31313.01
B4	11933.47
B5	1673.01
B6	287.07
B7	558.56
B8	11442.16
B9	2435.84
B10	1227.43
C1	Debe
C2	60870.55
C11	5806.31
C12	2826
C13	139059.27
C15	208562.13
D1	Haber
D13	185.28
D14	208376.85
D15	208562.13
G1	Parcial
G3	70
G4	612.79
G5	62342.26
H1	Debe
H2	63025.05
H6	62.81
H8	0
H9	309.17
H10	0
H11	0
H13	63397.03
I1	Haber
I7	2277.02
I8	1593.79
I10	1344.8
I11	3883.77
I12	54297.65
I13	63397.03
A2	Gastos de Operacion
A3	Materiales
A4	Luz Agua Gas
A5	Tel Tel Correos
A6	Pub y Prop
A7	Arts Escritorio
A8	Varios
A9	Gasolina y Lub
A10	Comis Banc
A11	IVA
A12	IDE Retenido
A13	Ctas x Pagar
A14	Bancos
F2	Gastos de Operacion
F3	Fletes
F4	Varios
F5	Sueldos
F6	IVA
F7	Ispt Retenido
F8	Imss Retenido
F9	Credito al Salario
F10	Pension Alim
F11	Infonavit
F12	Caja

claro, viendo lo que deseo con estos ejemplos y como debiera quedar... quizas ahora si, si me ayudan por favor con esa macro para no hacerlo manualmente, que me de la opcion de señalar desde donde a donde va a buscar la macro los datos, luego quitar lo que no tenga correspondencia, y luego generar una nueva hoja ( puede ser ahi mismo en ese libro, o solo generar la nueva hoja,) para luego yo salvarla o imprimir lo que genere...

como ven? algo complicado verdad ?

 

[jorgegalo]

Hola, me tomé el tiempo para hacer la macro que realiza lo que planteas. El resultado fue el esperado. Soy nuevo en esto de las macros, y el presente foro (concretamente este post) es de las primeras cosas que he leído respecto al tema. Me pareció interesante tu necesidad y me propuse a solucionarla como desafío personal para mi propio aprendizaje. Aunque el post es de 2012 y estamos en 2015, creo que sirve para el aprendizaje de otros:

Sub eliminarFilasNulas()


Dim i As Integer
Dim j As Integer
Dim ultimaFila As Double
Dim ultimaColumna As Double


ultimaFila = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count
ultimaColumna = ActiveSheet.UsedRange.Column + ActiveSheet.UsedRange.Columns.Count - 1


For j = 1 To ultimaFila


If j = ultimaFila Then
Exit For
End If

If WorksheetFunction.CountA(Range(Cells(j, 1), Cells(j, ultimaColumna))) = 0 Then


ActiveSheet.Range(Cells(j, 1), Cells(j, ultimaColumna)).Select
Selection.Delete Shift:=xlUp
j = j - 1
ultimaFila = ultimaFila - 1


End If


Next


For i = 1 To ultimaColumna


For j = 1 To ultimaFila


If Cells(j, i).Value = "0.00" Then


ActiveSheet.Range(Cells(j, 1), Cells(j, ultimaColumna)).Select
Selection.Delete Shift:=xlUp
j = j - 1
ultimaFila = ultimaFila - 1


End If


Next


Next


End Sub

 

[Gchavabeita]

Usando F5
Especial y se escoge celdas en blanco y luego eliminar y listo!!!