Respuesta
en
Microsoft Excel
a
Cómo hacer una macro que analice cada celda de la fila de una columna
Prueba con la siguiente macro. Conserva la concatenación que tienes en la columna D. Sub Eliminar_Duplicado() 'Por Dante Amor For i = Range("C" & Rows.Count).End(xlUp).Row To 2 Step -1 difer1 = Cells(i, "C").Value - Cells(i, "B").Value valor =...
Respuesta
en
VBA
y en 1 temas más
a
Macro para filtrar datos y copiar y pegar en otra hoja dependiendo de la condición del filtro
Si solamente ordenas la hoja1 por la columna J, tendrás los datos agrupados por tipo, solamente tendrías que copiar las columnas que necesitas a la hoja2.Otra duda, qué pasa si copias los registros con tipo = "activo", y el número de registros es más...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
¿Cómo contar valores con más de un criterio de coincidencia?
Por tú código supongo lo siguiente: En la columna "A" están los proyectos En la "I" los puestos En la "J" el tipo. En el combobox1 tienes las claves de proyecto. Entonces: Private Sub ComboBox1_Change() Set h = Sheets("Recomendación") cuenta =...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
¿Cómo saber la Dirección física o MAC de mi PC en una macro excel vba?
Puedes poner el siguiente código en un módulo: Sub ObtenerAddress() 'Por.Dante Amor MiAddress = GetMACAddress Select Case MiAddress Case "00:11:22:33:44:55", "66:77:88:99:aa:bb" Case Else: ActiveWorkbook.Close False End Select End Sub ' Function...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro para agrupar y sumar registros con varios criterios
Te anexo la macro Sub Sumar_Nits() 'Por Dante Amor Application.ScreenUpdating = False Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") h2.Rows("2:" & Rows.Count).ClearContents u = h1.Range("D" & Rows.Count).End(xlUp).Row k = 2 c1s = Array("E", "G",...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro para copiar datos de una hoja a otra en la fila vacía siguiente
Te anexo la macro Sub Copiar_Datos() 'Por Dante Amor Set h1 = Sheets("origen") 'hoja origen Set h2 = Sheets("destino") 'hoja destino ' u1 = h1.Range("A" & Rows.Count).End(xlUp).Row u2 = h2.Range("A" & Rows.Count).End(xlUp).Row + 1 h1.Range("A2:A" &...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
¿Como Nombrar Rango Variable VBA?
¿Y qué quieres hacer variable, las filas, las columnas? Por ejemplo: Sub rango() fini = 3 'fila inicial ffin = 5 'fila final cini = 2 'columna inicial cfin = 12 'columna fina 'ActiveWorkbook.Names.Add Name:="Pendientes",...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Extraer números aleatorios de un rango de números variables con macro
Te anexo la macro actualizada Sub aleatorio_3() 'Por Dante Amor Dim num As New Collection On Error Resume Next For Each cadafila In Selection.Rows Set num = Nothing fila = cadafila.Row ini = Columns("Q").Column 'columna inicial fin = ini +...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Obligar a completar una celda dependiendo de otra
Pon el siguiente código en los eventos de tu hoja Dim celda ' Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Columns("C")) Is Nothing Then If Target.Count > 1 Then Exit Sub If Target.Value = "" Then Exit Sub If...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Macro de Excel para colocar columnas de datos una debajo de otra, dejando siempre fijas los datos de tres columnas
Puedes poner un par de registros con datos de ejemplo de qué es lo que tienes y qué esperas de resultado. Si lo puedes poner con imágenes sería mucho mejor, procura que en las imágenes se vean las filas y las columnas de excel para ver exactamente en...