Búsquedas recientes
No hay búsquedas recientes

Third Party Integration Account
Incorporación 16 abr 2021
·
Última actividad 14 mar 2023
Seguimientos
0
Seguidores
0
Actividad total
8
Voto
1
Suscripciones
6
RESUMEN DE LA ACTIVIDAD
INSIGNIAS
ARTÍCULOS
PUBLICACIONES
COMENTARIOS DE LA COMUNIDAD
COMENTARIOS DE ARTÍCULOS
RESUMEN DE LA ACTIVIDAD
Última actividad de Third Party Integration Account
Third Party Integration Account hizo un comentario,
@Joshua Bentley: it is possible to have the desired result you requested - a VB Script can do the magic for you.
Sub start_fillit()
On Error GoTo Ende:
Dim i As Long, tmp
Dim j As Long
For j = 1 To 7
For i = 1 To IIf(IsEmpty(Cells(Rows.Count, 7)), _
Cells(Rows.Count, 7).End(xlUp).Row, Rows.Count)
If Not IsEmpty(Cells(i, j)) Then
tmp = Cells(i, j).Value
Else
Cells(i, j).Value = tmp
End If
Next i
Next j
Columns("D:D").Select
Selection.Replace What:="true", Replacement:="WAHR", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("A1").Select
Ende:
End Sub
Ver comentario · Publicado 02 jun 2017 · Third Party Integration Account
0
Seguidores
1
Voto
0
Comentarios