buen dia , tengo esta macro que me copia la informacion de esta celda "AC1"a otra hoja de la columna "B" pero no encuentro la manera de que cuando no tenga dato la celda "AC1" me ponga un simbolo de "?"al copiar en la otra hoja de la columna "B"
anexo macro
Sub Copy_FECHA_EMISION()
Dim SourceRange As Range, DestRange As Range
Dim DestSheet As Worksheet, Lr As Long
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
'fill in the Source Sheet and range
Set SourceRange = Sheets("PPS Format Front").Range("AC1")
'Fill in the destination sheet and call the LastRow
'function to find the last row
Set DestSheet = Sheets("BASE DE DATOS")
'Lr = LastRow(DestSheet)
Lr = DestSheet.Cells(Rows.Count, "B").End(xlUp).Row
'With the information from the LastRow function we can
'create a destination cell and copy/paste the source range
Set DestRange = DestSheet.Range("B" & Lr + 1)
SourceRange.Copy DestRange
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub
la función IsEmpty te dice si la celda está vacía
en tu caso comprueba si está vacío SourceRange
If IsEmpty(SourceRange) then ...
------
Ya sé Excel, pero necesito más.
Set SourceRange = Sheets("PPS Format Front").Range("AC1")
If IsEmpty(SourceRange) Then
SourceRange = "?"