vbamania.pl
login:
hasło:
 
  *Rejestracja *Zapomniane hasło
 Dziś jest sobota, 11 maja 2024 roku.
Ustaw jako stronę startową Ulubione Napisz
PowrótPowrót do serwisu  RegulaminRegulamin rssRSS

  tytuł wątku:
Wątki dyskusji

Wiersz na kolumne - prosze o pomoc!!


otwartyotwarty rozpoczął: tester postów: 2



napisał: pil
postów: 154


umieszczony:
21 kwietnia 2005
13:33

  
Option Explicit

Public Sub ZamienKolumne()

Dim i As Integer

i = 1

Do While (Worksheets("Arkusz1").Cells(i, 1).Value <> "")
    Worksheets("Arkusz1").Cells(1, i).Value = Worksheets("Arkusz1").Cells(i, 1).Value
    Worksheets("Arkusz1").Cells(i, 1).Value = ""
    i = i + 1
Loop

End Sub

napisał: tester
postów: 1


umieszczony:
21 kwietnia 2005
09:55

  
Hej jestem początkujący programista w excel i VB dlatego zaciąłem sie juz na wstepie :).
Chiałbym napisac takie makro ktore zamieniałoby wiersz na kolumne. Ktoś wie i moze pomoc? Dzieki z gory.Pozdrawiam


<-wstecz  1  dalej->
wszystkich stron: 1


Sortuj posty: z