.. ..

Sub pegarB1() With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With With Range("A10").CurrentRegion 'CELDA INICIAL f = .Rows.Count c = 10 'NUMERO DE CELDAS End With Set numeros = Range("A10").Resize(f - 1, c) 'CELDA...

Buena tarde, solicito de su gran ayuda por favor para la siguiente macro: En la columna A tengo celdas con valores hasta la fila 2000 o más. Pero son en algunas celdas, muchas otras están vacías, la mayoría vacías de hecho. Pero necesito una macro...

Hola: buenas noches expertos Me harían el grande favor de ayudarme con una macro, a manera de ejemplo adjunto la imagen, donde hay dos rangos de datos, el de la columna A:J y L:U, ambos rangos contienen números y en ocasiones hay valores repetidos en...

Buenas tardes, Solicito de ayuda para crear una macro y concatenar o sacar las permutaciones de 3 cifras de los números que están en los 3 rangos: Tengo 3 tablas con datos, cada tabla consta de 10 celdas, vamos a tomar de ejemplo la fila 4, como...

Buenas tardes, Solicito de ayuda para crear una macro y concatenar los siguientes valores. Explico: Tengo 3 rango de datos, cada rango consta de 10 celdas, como pueden ver en la fila 4, en el primer rango tengo los números 1 y 5, en el segundo rango...

Sub aleatorio() 'Por Dante Amor Dim cadafila As Range, fila As Long, ini As Long, fin As Long Dim n As Variant, columna As Variant, valor As Variant Dim col As Long, sh As Worksheet, i As Long Dim num As New Collection Set sh = Sheets("Hoja1") On...

Sub Extraer_No_Repetidos() Dim sh As Worksheet, dic As Object, ky As Variant, rangos As Variant Dim c As Range, i As Long, lr As Long 'ENTRADA Set dic = CreateObject("Scripting.Dictionary") Set sh = Sheets("Hoja1") lr = ActiveCell.Row rangos =...

Buenas noches, de nuevo yo con mis macros extrañas :) Solicito que me colaboren con esta macro, los datos allí en la imagen son a manera de ejemplo ya que lo voy a emplear en otra tabla con datos mucho más grandes, pero si funciona aqu, ya modifcando...

Sub pegar() Dim c As Range, j As Long j = Columns("M").Column With ActiveCell For Each c In Range("A" & .Row & ":K" & .Row) If c.Value <> "" Then Cells(.Row, j).Value = c.Value j = j + 1 End If Next End With End Sub Buen dia, Solicito de ayuda para...

Sub aleatorio() '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("A").Column 'rango inicial fin = ini + Cells(fila, "U").Value - 1 'rango final col...