Sub
ChkItSameTarget()
Dim
c
As
Range, z
As
Range
Set
c = ActiveSheet.Range(
"A1"
)
Set
z = ActiveSheet.Range(
"AZ1"
)
Do
Set
c = c.Offset(, 3)
If
c.Value <>
""
Then
Sheets(
"Tabellex"
).Range(c.Address).Value = c.Value
End
If
Loop
While
c.Column < z.Column
End
Sub
Sub
ChkItNextTarget()
Dim
c
As
Range, z
As
Range
Set
c = ActiveSheet.Range(
"A1"
)
Set
z = ActiveSheet.Range(
"AZ1"
)
Dim
x
As
Long
Do
Set
c = c.Offset(, 3)
If
c.Value <>
""
Then
Sheets(
"Tabellex"
).Range(
"A1"
).Offset(, x).Value = c.Value
x = x + 1
End
If
Loop
While
c.Column < z.Column
End
Sub