Marcar celdas vacías con color




Me preguntan en un foro la forma de marcar las celdas vacías poniendo en color la celda sin datos mediante una macro, para lo cual he creado un sencillo código que da solución al interrogante sobre como colorear celdas vacías o sin datos. En el post anterior denominado cambiar de color la celda a medida que se desplaza se publicó algo similar en cuanto a colorear las celdas, al diferencia está en que se va coloreando la celda a medida que nos vamos desplazando por las mismas.

También en parpadeo de celdas se trabaja dando color a las distintas celdas, con la diferencia que acá la celda parpadea cambiando constantemente de color cuando se cumple una condición, en el caso del ejemplo la condición estaba dada por un número bajo de stock, empezando a parpadear como si fuera una alarma cuando el nivel de stock cae por debajo de un número dado.





Si quieres aprender o profundizar  sobre el manejo de hojas de Excel, te recomiendo que leas un excelente libro sobre Excel el que te ayudará manejar las planillas de cálculo, debes hacer click acá, si quieres un libro sobre Excel, en inglés, entonces debes hacer click acá. Si lo que necesitas es aprender o profundizar sobre la programación de macros con VBA este es unos de los mejores curso que he visto en internet.

MASTERCARD PAYONEER

El ejemplo de macro o código de VBA tiene por objeto marcar todas las celdas vacías con color amarillo, para ello colorea la celda sin datos con color amarillo, el código es bastante sencillo, se utiliza el siguiente código en primer lugar ActiveSheet.UsedRange.Select para seleccionar el rango donde se encuentran los datos en forma automática, posteriormente se recorre cada una de las celdas del rango, encontrando las celdas vacías y pintándolas o coloreándolas con amarillo.

Desde el link del final se podrá bajar el archivo de ejemplo y adaptarlo a las necesidades de cada uno, el código es libre y no tiene ningún tipo de restricción.



Código que se inserta en un módulo



Sub MarcaEmpty()
ActiveSheet.UsedRange.Select
Selection.Interior.Pattern = xlNone
  For Each cell In Selection
       If cell = Empty Then
       cell.Interior.Color = 65535
       End If
  Next cell
End Sub



Otros post de utilidad:
  1. Mandar un correo electrónico o mail
  2. Hyperlink o hipervinculo a Google Maps
  3. Insertar un hyperlink en Excel
  4.  Determina la última fila con datos o primer fila libre
  5. Combobox que lista archivos
  6. Llenar combobox con hojas de un libro
  7. Llenar combobox con datos del mismo libro
  8. Recuperar password de hoja bloqueada
  9. Función BUSCARV
  10. Función BUSCARH 
  11. Función SI
  12. Abre explorador de archivo de Windows e inserta foto
  13. Abre explorador de archivo de Windows
  14. Combobox suma datos repetidos
  15. Busca un dato en todas las hojas de excel
  16. Combobox incrustado en Excel
  17. Formulario para insertar datos en hoja de excel
  18. Formulario de alera y envío de mail
  19. Tutoriales sobre VBA
  20. Llenar combobox y buscar datos
  21. Mensaje de Alerta y envío de mail con Excel
  22. Combobox que lista hojas de excel y las selecciona
  23. Busca un dato en todas las hojas de excel



Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página, CLICK para descargar en ejemplo en forma gratuita.



If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.


Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends      

Índice o Hyperlink a hojas de otros libros de Excel




Cuando se trabaja con gran cantidad de información, normalmente se divide en varios libros, surgiendo la necesidad de hacer una macro que realice un Libro Indice, donde al hacer click nos redireccione al libro que queramos consultar , existen varias formas de realizarlo, sin embargo una de las más usadas es a través de hyperlinks o hipervínculos, en este ejemplo se muestra como hacer un hiperlink o hipervinculo a hojas de otro u otros libros de Excel y de esta manera crear un índice de las hojas de todos los libros que queramos tener indezados.



Anteriormente se han publicado otros ejemplos de macros que trabajan con hiperlink o hipervínculo, como por ejemplo una macro que al hacer click ejecute el programa predeterminado para mandar un correo electrónico o mail,  o cargar una dirección en la base de datos y hacer un hyperlink o hipervinculo a Google Maps para mostrar geográficamente donde se encuentra la dirección; el tema de como insertar un hyperlink en Excel ha sido tratado en varias oportunidades en esta web, sugiero su lectura para entender un poco más sobre la creación de hipervínculos o hyperlinks.




Si quieres aprender o profundizar  sobre el manejo de hojas de Excel, te recomiendo que leas un excelente libro sobre Excel el que te ayudará manejar las planillas de cálculo, debes hacer click acá, si quieres un libro sobre Excel, en inglés, entonces debes hacer click acá. Si lo que necesitas es aprender o profundizar sobre la programación de macros con VBA este es unos de los mejores curso que he visto en internet.

MASTERCARD PAYONEER

El ejemplo de macro o código de VBA que aquí se presenta, permite realizar un índice de las hojas de todos los libros de Excel seleccionados mediante el explorador archivos de Windows, una vez seleccionados los archivos se procede a indexar todos los libros seleccionados, en la columna A a partir de la fila 2 se agrega el nombre de la hoja indexada, una vez terminado de hacer el índice del primer libro seleccionado, sigue con el resto de libros de los que se requirió realizar el indice, creándose un hipervínculo o hiperlink a dicha hoja del libro; es por ello que al hacer click en el índice se abre el libro respectivo, en la hoja seleccionada.

La macro está preparada para realizar el índice de todos los libros que se requiera sin restricción, es decir se puede seleccionar 1 o 1000 libros para indexar, claro está que a mayor cantidad de libros aumentará el tiempo que utiliza la macro para realizar el indexado.

A medida que se van procesando los archivos en la barra de tareas aparece un mensaje con la cantidad total de libros procesados del total de libros a procesar, o libros de los que se requiere hacer el índice, invito a que vean el ejemplo que desde el link del final se podrá bajar el archivo de ejemplo y adaptarlo a las necesidades de cada uno, el código es libre y no tiene ningún tipo de restricción.



Código que se inserta en un módulo



Sub RealizaIndice()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
Dim uf, ufos, tni, tfp, tpd, r2, r3 As Integer
Dim myfile As Variant
Dim mybook1, mybook, a As String
Dim myi As Long
Dim she As Worksheet
Range("A:A").Clear
Cells(1, 1) = "Indice"

mybook = ActiveWorkbook.Name
myfile = Application.GetOpenFilename("Archivos Excel (*.xl*), *.xl*", , , , True)
If VarType(myfile) = vbBoolean Then
Exit Sub
End If
fila = Sheets("hoja1").Range("A" & Rows.Count).End(xlUp).Row + 1
For myi = LBound(myfile) To UBound(myfile)
Application.StatusBar = "Creando Indice " & myi & " de " & UBound(myfile) & ", aguarde..."
mybook1 = myfile(myi)
Workbooks.Open Filename:=mybook1, UpdateLinks:=0
FullName = Split(mybook1, Application.PathSeparator)
a = FullName(UBound(FullName))
'Workbooks(a).Activate

For Each she In Worksheets
b = she.Name
'Workbooks(mybook).Sheets("hoja1").Hyperlinks.Add Anchor:=Workbooks(mybook).Sheets("hoja1").Cells(fila, 1), _
'Address:=mybook1, SubAddress:=b, TextToDisplay:=b

Workbooks(mybook).Sheets("hoja1").Hyperlinks.Add Anchor:=Workbooks(mybook).Sheets("hoja1").Cells(fila, 1), _
Address:=mybook1, SubAddress:=b & "!A1", TextToDisplay:=b

fila = fila + 1
Next
Workbooks(a).Close False
Next myi

Workbooks(a).Close False
Application.StatusBar = Clear
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub




Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página, CLICK para descargar en ejemplo en forma gratuita.



If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.


Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends      

Humor Gráfico Trae la camára de fotos




Humor Gráfico

Trae la cámara de fotos





MASTERCARD PAYONEOtros post de utilidad:
  1. Recuperar password de hoja bloqueada
  2. Abre explorador de archivo de Windows e inserta foto
  3. Abre explorador de archivo de Windows
  4. Combobox suma datos repetidos
  5. Busca un dato en todas las hojas de excel
  6. Combobox incrustado en Excel
  7. Formulario para insertar datos en hoja de excel
  8. Formulario de alera y envío de mail
  9. Tutoriales sobre VBA
  10. Llenar combobox y buscar datos
  11. Mensaje de Alerta y envío de mail con Excel
  12. Combobox que lista hojas de excel y las selecciona
  13. Busca un dato en todas las hojas de excel







Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página, CLICK para descargar ejemplos en forma gratuita.



If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free examples.


Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends      

Explorador Windows abre libro copia y pega en otro libro





Me preguntan En Un foro select Como Un archivo estafa El Explorador de Windows para abrir el Fichero copiar ciertos Datos a Otro Libro , en mensaje Anteriores sí ha Publicado Varios ejemplos Sobre Como utilizar el Explorador de Windows de Archivos to select , COMO ASI also verificar si EXISTE sin Determinado Libro y en Caso Que No Exista crearlo , La Diferencia Con El real mensaje radica En que no está de Última macro no Datos COPIA verificación sino-si la ONU Determinado Libro EXISTE, en Caso de no crea Existir El Libro.



Este  EJEMPLO de macro o Código de VBA , Responde a la pregunta  de como abrir Otro archivo de Excel, seleccionándolo desde el Explorador de Archivos y LUEGO copiar ONU Rango de Datos ; SI Descarga El Ejemplo, Vera Que EXISTE UN Button Que permite correr la macro, presionando Este, sí Muestra ONU Explorador de Archivos de Ventanas , el Cual permite select el archivo Deseado, Una Vez Seleccionado SE PROCEDE un abrir y copiar el Fichero ONU Rango de Datos en Otro Libro de Excel , Realizado this Procedure PROCEDE un pecado guardar cerrar El Libro Abierto del Cual sí extrajeron Datos párr pegar en El Otro Libro.

Payoneer MasterCard

El Código de VBA o Instrucción Aplicada baño es la macro:  Application.GetOpenFilename ("Archivos de Excel (* xl *) *, xl *.".); this Instrucción es La Que llama al Explorador de Windows filtrando Solamente los Archivos de Excel .

Si QUIERES Aprender o profundizar Sobre el Manejo de Hojas de  Excel , te recomiendo leas Que Un excelente  Libro  Sobre  Excel  el Que te ayudará manejar las planillas de Cálculo, Debes HACER  click acá , si QUIERES UN Libro Sobre  Excel , en inglés, entonces Debes HACER  haga clic acá . Si Lo Que need es Aprender o profundizar Sobre la programación de macros estafa  VBA  Este Es UNOS de los  Mejores Curso Que He Visto se en internet .


Desde el Link del Podras finales Bajar el archivo de EJEMPLO y adaptarlo a tus needs, el Código es libre y NO TIENE Nessun pisos de restricción.

Código Que se INSERTA en módulo sin





Sub openbook ()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
Miarchivo Dim, mybook, a, b, c As String
On Error Resume Next
myfile = Application.GetOpenFilename ("Archivos de Excel (*. xl *), *. xl *")
mybook = ActiveWorkbook.Name
b = "Hoja1"
c = "Datos"
Hojas (c). Cells.Clear
Workbooks.Open fichero: = myfile, UpdateLinks: = 0
FullName = Split (myfile, Application.PathSeparator)
a = FullName (UBound (FullName))
. Hojas (b) Cells.Copy Destino:.. = Libros (mybook) Hojas (c) Las células (1, 1)
Application.CutCopyMode = False
Cuadernos de trabajo (a). Cierre False
Application.ScreenUpdating = True
MsgBox ("Los Datos sí copiaron aire acondicionado Éxito Éxito"), vbInformation, "AVISO"
End Sub




Si te FUE de Utilidad PUEDES  INVITARME UN CAFÉ  y of this Manera Ayudar a Seguir manteniendo la page,  HAGA CLIC  párr descargar en EJEMPLO En Forma Gratuita.



Si este correo era útil  INVITE ME UN CAFÉ  y así ayudar a mantener a la página,  CLICK  descargar ejemplo gratuita.


Si Te Gusto Por favor Compártelo Con Tus amigos
Si te gustó  , por favor  compártela con tus  amigos