macro til excel

Ikke helt forstået hvad du mener men kan noget svarende til nedenstående bruges?


if Len(range("b1").text) = 0 then
  range("b1") = range("a1").text
else
  range("b1") = range("c1").text
end if

Hej
det jeg mener
er at kopier en tekst eller et tal fra b1 til c1, hvis cellen ikke er tom skal den tage c2, altså den næste tomme celle i kolone c

Mvh stiig

prøv

Dim i As Integer
Dim j As Integer


For i = 1 To 100
  For j = 0 To 100
    If Len(Range("c" & Val(i + j)).Text) = 0 Then
      Range("c" & Val(i + j)).Value = Range("b" & Val(i)).Value
      Exit For
    End If
  Next
Next


meld lige tibage om det virker

rigtig mange tak for dit svar, det virker

kunne du hjælpe mig lidt vider med hvis den skulle gøre det samme,men flytte data til et andet sheet

Mvh smw

Hej,

hvis du bruger

Sheets("Ark1").Range("c" & Val(i + j)).Text

altså fornavnet "Sheets("Ark1")."

så kan du flytte data fra et ark over i et andet...