Edición
Edición: Copiar, Borrar, Rellenar
Copiar: dada una condición
Véalo
aquí
Sub Copiando()
'copia los registros de la hoja Hoja2 cuyo mes = celda A1 de la
Hoja3
Dim nromes As Integer, mes As Integer
Dim filadestino As Integer
Dim dato As String
'la variable nromes indica el mes de los registros a copiar
nromes = Sheets("Hoja3").Range("A1").Value
'variable que indica a partir de qué fila se copiará
filadestino = 2
'busca registros cuya fecha tiene por mes el valor de la variable
nromes
Sheets("Hoja2").Activate
Range("A1").Select
While ActiveCell.Value <> ""
dato = ActiveCell.Value
'obtiene el número de mes del campo fecha
mes = Month(dato)
If mes = nromes Then
Selection.EntireRow.Copy
ActiveSheet.Paste Destination:=Worksheets(3).Cells(filadestino, 1)
filadestino = filadestino + 1
End If
ActiveCell.Offset(1, 0).Select
Wend
Application.CutCopyMode = False
End Sub
Borrar: una celda
Véalo
aquí
Sub borrando()
'borra el contenido de las celdas selecciondas
Range("C2").Select
Selection.ClearContents
End Sub
Borra: una fila
Véalo
aquí
Sub eliminando()
'elimina las filas seleccionadas
Selection.EntireRow.Delete
End Sub
Rellenar celdas
Véalo
aquí
Sub llenando_celdas()
Dim valor As String
Dim celdita As Range
For Each celdita In ActiveSheet.Range("A10:B13")
valor = InputBox("Ingrese valor: ")
celdita.Value = valor
Next celdita
End Sub
Rellenar en varias hojas
Véalo
aquí
Sub llenando_hojas()
Dim hoja As Worksheet
For Each hoja In Sheets
hoja.Range("E13").Value = Date
hoja.Range("F13").Value = Time
Next hoja
End Sub
|
