Seleccionar celdas con datos

Hola Splinter,

Tres cosas que no me han quedado claras:

1) ?quien o que es el o lo que te formatea, selecciona, pega etc. los
rangos? ?Los macros? ?Si es asi, podrias exponer el codigo?
2) ?quieres omitir las filas que tengan comillas en todas las celdas del
rango o en al menos una celda? ?O tal vez otro criterio?
3) ?que valores devolverian las celdas en caso de no ser comillas?

Hipotesis:

1) macros
2) omitir las filas que tengan comillas en todas las celdas del rango A:E
3) solo valores numericos

Solucion:

Sub test()
On Error Resume Next
Intersect([A:E], [A15:E22].SpecialCells(xlCellTypeFormulas, _
xlNumbers).EntireRow).Copy [H15]
On Error GoTo 0
End Sub

Saludos,
KL




"Splinter" wrote in message
news:

Hola de nuevo, me gustaria saber como puedo en un rango de celdas que
contienen formulas,
=SI(act1="","",act1) como esta, donde la celda con nombre act7 si tiene
datos muestra el valor y si no, pues la deja en blanco (comillas), lo
que me gustaria es que en el rango que son 8 filas, seleccionara solo
las que tienen valores diferentes a "" (comillas) o en blanco.
Ejemplo
Rango A15:E22 (Este rango cada una de las celdas tiene una formula
similar a esta =SI(act1="","",act1), osea condicionando que si esta
vacia le de comillas.
Entonces cuando pego el rango en otro archivo, me formatea las celdas
que tienen comillas y cuando quiero pegar de nuevo otra sesion, me las
pega despues de la ultima celda formateada como si tuviera algun valor,
creandome espacios entre las filas haciendome mas largo el archivo y
teniendo que borrar las filas vacias es por eso que quiero que al
momento de seleccionar para pegar solo me tome los datos que tienen
valores y no comillas o conteniendo formulas.

Espero haberme explicado. Gracias

Ok
para las tres cosas no claras
1) Es por codigo
'=Sub addmedi()
Application.ScreenUpdating = False
Sheets("Setup").Select
Dim NextRow As Long
Range("B75:D82").Select
Selection.Copy

Dim mesmed As String
mesmed = Worksheets("Setup").Range("filemed").Value & ".xls"

Dim sLibro As String, oLibro As Workbook
sLibro = "C:\Servicio Medico\Medicamentos\" & mesmed
On Error Resume Next
Set oLibro = Workbooks(Dir(sLibro))
On Error GoTo 0
If oLibro Is Nothing Then Set oLibro = Workbooks.Open(sLibro)
'Aqui el codigo
Windows(mesmed).Activate
NextRow = Worksheets("Listado").Range("A65536").End(xlUp).Row + 1
Range("A" & NextRow).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
ActiveWindow.Close savechanges:=True
Windows("Panel Gral.xls").Activate
Sheets("Paciente").Select
Application.ScreenUpdating = True
End Sub
'2) Realmente es una receta, y en las recetas pues a veces te dan 1 o mas
medicamentos
es por eso que necesito que la seleccion la haga con los que se recetaron y
no con toda
la receta, son 8 medicamentos, y cuando los pega, pues me pega los 8 campos
y cuando
va el otro paciente, pega otros 8 dejando me espacios vacios, no se si me
explique

3) No deberia tener ningun valor ya que solo necesito los que tengan valor


Lo que realmente necesito es que me seleccione las celdas con medicamentos
pero esas celdas tienen formulas que leen la receta..

Gracias


"KL" escribió en el mensaje
news:

Hola Splinter,

Tres cosas que no me han quedado claras:

1) ?quien o que es el o lo que te formatea, selecciona, pega etc. los
rangos? ?Los macros? ?Si es asi, podrias exponer el codigo?
2) ?quieres omitir las filas que tengan comillas en todas las celdas del
rango o en al menos una celda? ?O tal vez otro criterio?
3) ?que valores devolverian las celdas en caso de no ser comillas?

Hipotesis:

1) macros
2) omitir las filas que tengan comillas en todas las celdas del rango A:E
3) solo valores numericos

Solucion:

Sub test()
On Error Resume Next
Intersect([A:E], [A15:E22].SpecialCells(xlCellTypeFormulas, _
xlNumbers).EntireRow).Copy [H15]
On Error GoTo 0
End Sub

Saludos,
KL




"Splinter" wrote in message
news:

Hola de nuevo, me gustaria saber como puedo en un rango de celdas que
contienen formulas,
=SI(act1="","",act1) como esta, donde la celda con nombre act7 si tiene
datos muestra el valor y si no, pues la deja en blanco (comillas), lo
que me gustaria es que en el rango que son 8 filas, seleccionara solo
las que tienen valores diferentes a "" (comillas) o en blanco.
Ejemplo
Rango A15:E22 (Este rango cada una de las celdas tiene una formula
similar a esta =SI(act1="","",act1), osea condicionando que si esta
vacia le de comillas.
Entonces cuando pego el rango en otro archivo, me formatea las celdas
que tienen comillas y cuando quiero pegar de nuevo otra sesion, me las
pega despues de la ultima celda formateada como si tuviera algun valor,
creandome espacios entre las filas haciendome mas largo el archivo y
teniendo que borrar las filas vacias es por eso que quiero que al
momento de seleccionar para pegar solo me tome los datos que tienen
valores y no comillas o conteniendo formulas.

Espero haberme explicado. Gracias

Echenme la mano.


"KL" escribió en el mensaje
news:

Hola Splinter,

Tres cosas que no me han quedado claras:

1) ?quien o que es el o lo que te formatea, selecciona, pega etc. los
rangos? ?Los macros? ?Si es asi, podrias exponer el codigo?
2) ?quieres omitir las filas que tengan comillas en todas las celdas del
rango o en al menos una celda? ?O tal vez otro criterio?
3) ?que valores devolverian las celdas en caso de no ser comillas?

Hipotesis:

1) macros
2) omitir las filas que tengan comillas en todas las celdas del rango A:E
3) solo valores numericos

Solucion:

Sub test()
On Error Resume Next
Intersect([A:E], [A15:E22].SpecialCells(xlCellTypeFormulas, _
xlNumbers).EntireRow).Copy [H15]
On Error GoTo 0
End Sub

Saludos,
KL




"Splinter" wrote in message
news:

Hola de nuevo, me gustaria saber como puedo en un rango de celdas que
contienen formulas,
=SI(act1="","",act1) como esta, donde la celda con nombre act7 si tiene
datos muestra el valor y si no, pues la deja en blanco (comillas), lo
que me gustaria es que en el rango que son 8 filas, seleccionara solo
las que tienen valores diferentes a "" (comillas) o en blanco.
Ejemplo
Rango A15:E22 (Este rango cada una de las celdas tiene una formula
similar a esta =SI(act1="","",act1), osea condicionando que si esta
vacia le de comillas.
Entonces cuando pego el rango en otro archivo, me formatea las celdas
que tienen comillas y cuando quiero pegar de nuevo otra sesion, me las
pega despues de la ultima celda formateada como si tuviera algun valor,
creandome espacios entre las filas haciendome mas largo el archivo y
teniendo que borrar las filas vacias es por eso que quiero que al
momento de seleccionar para pegar solo me tome los datos que tienen
valores y no comillas o conteniendo formulas.

Espero haberme explicado. Gracias

Hola KL, me puedes ayudar con esa informacion...


"KL" escribió en el mensaje
news:

Hola Splinter,

Tres cosas que no me han quedado claras:

1) ?quien o que es el o lo que te formatea, selecciona, pega etc. los
rangos? ?Los macros? ?Si es asi, podrias exponer el codigo?
2) ?quieres omitir las filas que tengan comillas en todas las celdas del
rango o en al menos una celda? ?O tal vez otro criterio?
3) ?que valores devolverian las celdas en caso de no ser comillas?

Hipotesis:

1) macros
2) omitir las filas que tengan comillas en todas las celdas del rango A:E
3) solo valores numericos

Solucion:

Sub test()
On Error Resume Next
Intersect([A:E], [A15:E22].SpecialCells(xlCellTypeFormulas, _
xlNumbers).EntireRow).Copy [H15]
On Error GoTo 0
End Sub

Saludos,
KL




"Splinter" wrote in message
news:

Hola de nuevo, me gustaria saber como puedo en un rango de celdas que
contienen formulas,
=SI(act1="","",act1) como esta, donde la celda con nombre act7 si tiene
datos muestra el valor y si no, pues la deja en blanco (comillas), lo
que me gustaria es que en el rango que son 8 filas, seleccionara solo
las que tienen valores diferentes a "" (comillas) o en blanco.
Ejemplo
Rango A15:E22 (Este rango cada una de las celdas tiene una formula
similar a esta =SI(act1="","",act1), osea condicionando que si esta
vacia le de comillas.
Entonces cuando pego el rango en otro archivo, me formatea las celdas
que tienen comillas y cuando quiero pegar de nuevo otra sesion, me las
pega despues de la ultima celda formateada como si tuviera algun valor,
creandome espacios entre las filas haciendome mas largo el archivo y
teniendo que borrar las filas vacias es por eso que quiero que al
momento de seleccionar para pegar solo me tome los datos que tienen
valores y no comillas o conteniendo formulas.

Espero haberme explicado. Gracias