GoldenLine
Zaloguj się
Karol T K.

Karol T K. Najlepszy czas na
działanie jest TERAZ

Temat: Makro - zmiana miejsc kolumn

Cześć, pomóżcie

Potrzebuję makra, które tak mi poprzestawia w pliku, że kolumny ustawią mi się w kolejności na podstawie nagłówków.

Mam pliki, w których kolejność kolumn jest poprzestawiana.

Miałoby to wyglądać mniej więcej tak, że jeżeli kolumna ma nagłówek Nazwa to żeby cała kolumna ustawiła się na A:A, jeżeli Ilość to cała kolumna na B:B.

Proszę o pomoc.
Link do wypowiedziLink
Ryszard G.

Ryszard G. .

Temat: Makro - zmiana miejsc kolumn

Sub Makro1()
Dim k As Long

For k = 2 To Range("A1").CurrentRegion.Columns.Count
If Cells(1, k) = "Nazwa" Then
Cells(1, k).EntireColumn.Copy
Columns("A:A").Insert Shift:=xlToRight
Exit For
End If
Next k

For k = 3 To Range("A1").CurrentRegion.Columns.Count
If Cells(1, k) = "Ilość" Then
Cells(1, k).EntireColumn.Copy
Columns("B:B").Insert Shift:=xlToRight
Exit For
End If
Next k

Application.CutCopyMode = False
End Sub
Link do wypowiedziLink
Andy L.

Andy L. ITM, VUB

Temat: Makro - zmiana miejsc kolumn

to do tego AŻ macro jest potrzebne???
Link do wypowiedziLink
Ryszard G.

Ryszard G. .

Temat: Makro - zmiana miejsc kolumn

W zasadzie to i Excel jest tu niepotrzebny, bo na kartce ołówkiem też się da zrobić.
Link do wypowiedziLink
Andy L.

Andy L. ITM, VUB

Temat: Makro - zmiana miejsc kolumn

Oczywiście, że można ołówkiem na kartce. Można również w wyobraźni to zrobić.
A można też poznać Excela i dostępne w nim możliwości.
Link do wypowiedziLink

Wojciech Gardziński

Wypowiedzi autora zostały ukryte. Pokaż autora
« Wróć do tematów
Odpowiedz

Podobne tematy





Wyślij zaproszenie do
Anuluj