James Bond

James Bond

Si de mis mayores gustos, mis disgustos han nacido, gustos al cielo le pido aunque me cuesten disgustos
 325K puntos  Monterrey, México @eusebiosuarez desde - visto
Preguntar

Respuestas

Respuesta en y en 2 temas más a

Macro para reemplazar valores considerando distintos rangos seleccionados.

Prueba esta macro, sustituye la coma por presente dentro de los rangos que selecciones Sub Reemplazar_Valor() Dim celda As Range Set datos = Selection For Each celda In datos If celda.Value Like "*,*" Then celda.Value = "PRESENTE" End If Next celda...
Respuesta en y en 1 temas más a

Macro para guardar plantilla en carpeta determinada.

Inserta esta macro en el cuadro azul (thisworkbook) que se ve en la imagen en tu editor VBA, en donde dice filename cambia esa ubicación por la que contenga la carpeta datos y cada que oprimas el botón grabar en automática solo aceptara mandar la...
Respuesta en y en 2 temas más a

Inserta fila en la parte superior

Supongo que el encabezado que quieres que aparezca es ord/trab y que aparezca así entonces esta es la modificacion que le hice a tu macro Sub tezt() Dim unicos As New Collection Set datos = Range("a2").CurrentRegion With datos...
Respuesta en y en 1 temas más a

Concatenar varias celdas con salto de línea por criterio

Checa esta macro Sub crea_tablas() Dim unicos As New Collection Set datos = Range("a1").CurrentRegion titulos = Array("zona", "Nombre_kg", "total-kg") With datos filas = .Rows.Count Set datos = .Rows(2).Resize(filas - 1) Set tabla = .Rows(filas +...
Respuesta en y en 2 temas más a

Combinar varios celda en macro

Este es el resultado de la macro y esta es la macro Sub combinar_celda() x = 1 If x = 1 Then Range("a1").Select otro: Set nombre = ActiveCell.CurrentRegion If IsEmpty(ActiveCell) = True Then End With nombre With .Columns(.Columns.Count +...
Respuesta en y en 1 temas más a

VBA omitir items duplicados en combobox

Este es un ejemplo de como cargarlo a usando una colección y esta es la macro Private Sub UserForm_Initialize() Dim unicos As New Collection Set datos = Range("a2").CurrentRegion With datos filas = .Rows.Count For i = 1 To filas nombre = .Cells(i, 1)...
Respuesta en y en 1 temas más a

¿Cómo borrar datos en excel, desde una celda distinta?

Por fórmula este medio complicado porque en vez tener el nombre del producto y el dato tendrás que tener esa celda formulada, no digo que no se pueda solo que en este momento no imagino como se puede hacer. Por macros es así Sub borrar() Set datos =...
Respuesta en y en 2 temas más a

Filtrar y mostrar datos en otra hoja

Prueba esta macro Sub contar_trabajadores() Set h1 = Worksheets("horario") Set h2 = Worksheets("turno") filas = h1.Range("a1").CurrentRegion.Rows.Count columnas = h1.Range("a1").CurrentRegion.Columns.Count With h1 Set fechas = .Range("a1").Resize(1,...
Respuesta en y en 2 temas más a

Curso VBA para macros excel

Los mejores cursos están es ingles hay libros en VBA gratis que puedes bajar de la red algunos están es español, solo teclea vba, macros, pdf en google o en el buscador que uses y te mostrara los resultados aunque como dije si quieres aprender a...
Respuesta en y en 2 temas más a

Error Offset de Objeto "range"

Ya probé tu macro y a mi no me marca ningún error añadí los elementos en amarillo y no me dio ningún mensaje de error pero como dije la forma en que tienes tabla dentro de tablas puede ne dado momento dar problemas o resultados no deseados.