Excel +VBA + sortowanie kolumn = help ;)

	B O A R D
	» Board » Zadaj pytanie » Archiwum » Szukaj » Stylizacja

M E N U

» Nowości

» Archiwum

» Recenzje / Testy

» Board

» Rejestracja

Szukaj @ TwojePC

	OBECNI NA TPC
	» JE Jacaw 08:41 » Kool@ 08:40 » XepeR 08:38 » Dhoine 08:37 » DYD 08:36 » Ament 08:34 » OBoloG 08:30 » Demo 08:28 » gigamiki 08:27 » petropank 08:27 » ligand17 08:26 » zartie 08:26 » Wolf 08:24 » b0b3r 08:24 » DJopek 08:12 » rainy 08:04 » Sebek 08:00 » exmac 07:59 » cVas 07:44 » Dexter 07:43 Dzisiaj przeczytano 41135 postów, wczoraj 25974 Szybkie ładowanie jest: włączone.

ccc

A R C H I W A L N A W I A D O M O Ś Ć

Excel +VBA + sortowanie kolumn = help ;) , Fox 22/09/06 08:28
Powiedzmy ze mam arkusz z kolumnami
A - Nazwa B - Nr C - Ilosc D - Opis
W kolejnych wierszach sa nastepne pozycje.
Jak mam posortowac wpisy np alfabetycznie po polu A - Nazwa,
tak zeby kolumny BCD zwiazane z wierszem rowniez wylądowały na swoim miejscu, nie będąc pomieszane ?

Pozdrawiam

a po co VB ? , Delete01 22/09/06 08:32
zaznacz kolumny, Dane, Sortuj .... wybierasz kolumne A jako sortuj po.... i gotowe
zaznaczasz wszystkie 4 kolumny , Dhoine 22/09/06 08:33
MENU DANE --> SORTUJ i tam wybierasz po czym sortowac.

Ale w temacie watka dales VBA - wiec obawiam sie, ze ta metoda Cie nie zadowoli.
Chodzi o to, , Fox 22/09/06 08:37
ze to musi być automat, pani dopisuje kolejny wiersz i trza sobie posortowac i wstawic, ona nie moze nic robic zadne sortuj - dlatego sie gryzę z tym tyle ;)
Powered by Linux and siemens s7
PLCs...
no to tak ... , Delete01 22/09/06 08:38
Sheets("Arkusz").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
1. Hmm mam troszke problem z tym ;) , Fox 22/09/06 08:58
  Private Sub Worksheet_Activate()
  Sheets("Sheet2").Select
  Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
  OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
  DataOption1:=xlSortNormal
  End Sub
  
  Otrzymuje error 1004 Application or object error, ktory nic mi nie mowi ;)
  Powered by Linux and siemens s7
  PLCs...
Ha, zrobilem , Fox 22/09/06 10:14
Widac najprostsze metody są najlepsze, posortowałem z palca nagrywając makro ;)
Dzięki za pomoc.
Powered by Linux and siemens s7
PLCs...
1. jesli zagladniesz sobie w zrodlo tego makro , Delete01 22/09/06 11:38
  to bedzie podobnie (jak nie tak samo), byc moze chodzi o ten ostatni parametr ... rozne wersje VBA - tak mi sie zdaje.;)
  1. No tak, , Fox 22/09/06 11:58
    jest praktycznie identycznie, nie mam pojecia czemu nie kcialo chodzic, dzieki!
    Powered by Linux and siemens s7
    PLCs...