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
	» Dexter 21:50 » Katoda Lt 21:46 » DYD 21:43 » Sociu 21:41 » bajbusek 21:40 » b0b3r 21:38 » rurecznik 21:35 » Syzyf 21:30 » Chrisu 21:27 » Ramen 21:26 » Shark20 21:25 » XepeR 21:24 » Master/Pe 21:12 » Sherif 21:04 » J@rek 21:01 » myszon 21:00 » ligand17 20:57 » Conan Bar 20:55 » past 20:51 » metacom 20:45 Dzisiaj przeczytano 41109 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...