capelazo

angelcrisnor respondió: A ver qué te parece esta macro, donde le puedes poner a POR el valor que quieras. Sub Saca10alAzar() x = 5 Randomize For i = 1 To 10 Range("A" + Trim(Str(i))).Value = Int((x * Rnd()) + 1) Next End Sub

Cadipas spain respondió: Prueba el siguiente código: '-------------- Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then Sheets("hoja2").Select Sheets("hoja2").Range("B65536").End(xlUp).Offset(1, 0).Select Selection = Range("a1")...

jrgces respondió: Dim rngCelda As Range For Each rngCelda In [Hoja1!A1:A3] If rngCelda.Value = "" Then MsgBox "La celda " & rngCelda.Address & " no puede estar vacía" rngCelda.Select Exit Sub End If Next rngCelda

Abraham Valencia respondió: Pega esto en el modulo de la hoja: Private Sub Worksheet_SelectionChange(ByVal Target As Range) [A20] = Target.Address End Sub Abraham

Elsa Matilde respondió: Aquí va un par de instrucciones rgo = ActiveSheet.Range("B1").value Sheets("Hoja2").Range(rgo) = ActiveSheet.Range("A1").value Con la misma idea podrás borrar una celda: rgo = ActiveSheet.Range("C1").value Sheets("Hoja2").Range(rgo) = ""