Foros


Inicio » Excel

Página: 1

Mensaje Autor

Arriba
04/Sep/07 18:15
Completar celdas en blanco (registros incompletos)

[list=1:c85a343409][*:c85a343409]. Algunas Tablas contienen celdas en blanco para facilitar su lectura. En nuestro caso la Tabla de Ventas no repite los clientes, solo los muestra una sola vez.
[img:c85a343409]http://mx.geocities.com/bypaco2004/Tabla.JPG[/img:c85a343409]
[*:c85a343409]. Lo anterior impide realizar operaciones sobre la tabla, por ejemplo las realizadas en el (SUBTOTAL). Por eso siempre se recomienda completar todos los campos (columnas) de cada registro.

[*:c85a343409]. Para autocompletar los datos de los clientes:
[list=a:c85a343409][*:c85a343409] - Selecciona el rango B8:B19
[*:c85a343409] - Menú Edición > Ir a > botón Especial > opción Celdas en Blanco
[*:c85a343409] - Escribe =B8 y manteniendo presionada la tecla Ctrl, presiona Enter
[*:c85a343409] - Selecciona B8:B19
[*:c85a343409] - Menú Edición > Copiar y luego menú Edición > Pegado Especial > pegar Valores[/list:o:c85a343409]
[/list:o:c85a343409]
La misma acción, pero con macro
[code:1:c85a343409]Sub AutoCompleta()
' Completa celdas en blanco con el valor de arriba
Range("B8:B19").SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
Range("B8:B19").Value = Range("B8:B19").Value
End Sub

[/code:1:c85a343409]
 
«Antes que cambien los reinos, los hombres deberán cambiar» ═╬═
 
Perfil

ByPaco
Teniente Coronel

Mensajes: 2132
Ingresó: Junio 05, 2004
Ubicación:

Conectado

Agregar como amigo

Arriba
05/Sep/07 13:27
Re: Completar celdas en blanco (registros incompletos)

Buen dia
Cuando necesito tener esa lista completa, normalmente aplicaria la formula A8=SI(B8="",B7,B8) y solo la copio en el resto de la lista....
Es bueno saber esta otra manera de completar los datos....

Gracias y saludos

ONM
 
Perfil

FOLYTAM
Sargento Primero

Mensajes: 93
Ingresó: Octubre 19, 2005
Ubicación:

Conectado

Agregar como amigo

Arriba
19/Abr/23 15:34
Re: Completar celdas en blanco (registros incompletos)

Buenos tips.
 
Lo importante no es saber, sino tener el teléfono del que sabe.
 
Perfil

Cheque
General de Brigada

Mensajes: 6603
Ingresó: Mayo 18, 2004
Ubicación:

Conectado

Agregar como amigo

Arriba
19/Abr/23 15:58
Re: Completar celdas en blanco (registros incompletos)

...
 
'Quienes se creen extremadamente inteligentes son tontos con complejos reprimidos'. Claudia Cardinale
 
Perfil

CP_PACO
General Brigadier

Mensajes: 14518
Ingresó: Marzo 10, 2005
Ubicación:

Conectado

Agregar como amigo

Arriba
06/Jun/23 11:38
Re: Completar celdas en blanco (registros incompletos)

Buen día, ¿No se entiende?
Va la Macro de nuevo
Code:
Sub LLenaBlancos()
c = MsgBox('Se llena las celdas vacias del rango seleccionado' & Chr(10) & 'Copiando el dato de arriba', 1, 'Llena Blancos')
If c 1 Then Exit Sub
Selection.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = '=R[-1]C'
Selection.Cells = Selection.Cells.Value
End Sub

Saludos
 
«Antes que cambien los reinos, los hombres deberán cambiar» ═╬═
 
Perfil

ByPaco
Teniente Coronel

Mensajes: 2132
Ingresó: Junio 05, 2004
Ubicación:

Conectado

Agregar como amigo

Arriba
06/Jun/23 11:40
Re: Completar celdas en blanco (registros incompletos)

Otra Opción
Se llenan solo las cedas vacías con el dato tecleado en el cuadro
Code:
Sub llenavacios()
'ByPaco 2023.02.22
ppp = 'Llena Vacios'
c = MsgBox('Se llenaran las celdas vacias del rango seleccionado con el valor elegido', vbOKCancel, ppp)
If c 1 Then Exit Sub
d = InputBox('Importe a poner en las celdas vacias', ppp, 0)
If d = '' Then Exit Sub
If Selection.Count = 1 Then Exit Sub
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
For Each Cell In Selection
If Cell.Value = '' Then
Cell.Value = d
End If
Next Cell
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
End With
End Sub

Saludos
 
«Antes que cambien los reinos, los hombres deberán cambiar» ═╬═
 
Perfil

ByPaco
Teniente Coronel

Mensajes: 2132
Ingresó: Junio 05, 2004
Ubicación:

Conectado

Agregar como amigo

Arriba
06/Jun/23 11:43
Re: Completar celdas en blanco (registros incompletos)

Para quien quiera copiar el código y funcione correctamente, deberá cuidar que los textos estén entre comillas dobles, el portal los esta convirtiendo en comillas simples al pegarlos ahí.

Saludos
 
«Antes que cambien los reinos, los hombres deberán cambiar» ═╬═
 
Perfil

ByPaco
Teniente Coronel

Mensajes: 2132
Ingresó: Junio 05, 2004
Ubicación:

Conectado

Agregar como amigo


Página: 1