Programación VBA (Excel)-1

Programación VBA (Excel)-6

Aquí dejo el código usado en la clase:

Sub BUCLE10k()
Dim CELDA As Range

For Each CELDA In Range(«K1:p1000»)
VALOR = VALOR + 1
CELDA.Value = VALOR

Next
End Sub
***********************************

Sub Eliminacolumnad()

Range(«D:D»).Columns.Delete

End Sub
***********************************
Sub Eliminacolumna()

columnainicio = InputBox(«dame letra columna inicio»)
columnafin = InputBox(«dame letra columna fin»)
Range(columnainicio & «:» & columnafin).Columns.Delete

End Sub

***********************************

Sub Eliminaceldas()
Range(«a26:b30»).Select
Selection.Delete
End Sub

***********************************
Sub Eliminaotrasceldas()
celdainicio = InputBox(«celda inicio»)
celdafin = InputBox(«celda fin»)
Range(celdainicio & «:» & celdafin).Select
Selection.Delete
End Sub
***********************************
Sub COPIARANGOVALORES()


    Range(«B4:G13»).Copy
    Range(«B17»).PasteSpecial xlPasteValues

    Application.CutCopyMode = False


    End Sub
***********************************
Sub COPIARANGOOTRAHOJA()

Range(«B4:G13»).Copy
Worksheets(«HOJA3»).Range(«B4»).PasteSpecial

Application.CutCopyMode = False

End Sub
***********************************
Sub crearhoja()
nombre = InputBox(«dame nombre hoja»)

Worksheets.Add.Name = nombre

End Sub
***********************************
Sub crearmuchashojas()
hojasactuales = Sheets.Count
MsgBox (hojasactuales)
numerohojas = InputBox(«cuantas hojas quieres?»)
Worksheets.Add After:=Worksheets(Worksheets.Count), Count:=numerohojas

End Sub
***********************************
Sub abrirlibro()
Workbooks.Open «C:\Users\Alumno\Downloads\pizza.xlsx»

End Sub
***********************************
Sub borrarcolumnasvacias()
For Each CELDA In Range(«c5:c15»)
    If CELDA.Value <> 0 Then borrar = «no borrar»

Next
If borrar = «no borrar» Then
    MsgBox («no se oculta nada»)
Else
    MsgBox («Se ocultará la fila 5»)
    Rows(«5:15»).EntireRow.Hidden = True
End If

End Sub

***************************************
Sub crearhoja()
nombre = InputBox(«dame nombre hoja»)
Application.Wait (Now + TimeValue(«00:00:05»))

Worksheets.Add.Name = nombre
Sheets(nombre).Tab.Color = vbYELLOW

End Sub