Pesquisas recentes
Sem pesquisas recentes

Third Party Integration Account
Entrou em 16 de abr. de 2021
·
Última atividade em 14 de mar. de 2023
Seguindo
0
Seguidores
0
Atividade total
8
Votos
1
Assinaturas
6
VISÃO GERAL DA ATIVIDADE
MEDALHAS
ARTIGOS
PUBLICAÇÕES
COMENTÁRIOS NA COMUNIDADE
COMENTÁRIOS EM ARTIGOS
VISÃO GERAL DA ATIVIDADE
Atividade mais recente por Third Party Integration Account
Third Party Integration Account comentou,
@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
Exibir comentário · Publicado 02 de jun. de 2017 · Third Party Integration Account
0
Seguidores
1
Votos
0
Comentários