Kako bi seštevala v listu 2

[princesa]

pozdravljeni sem ova na tem forumo in vas pozdravljam.Imam maliproblem ki pa je sledeči:
V listu 1 bi od B1 pa do B1000 vpisovala X kateri bi se mi v Listu2 v vrastici B1 seštevali X.To bi izgledalo nekako takole
List1 B1 = VPISAN X v Listu 2 B1 pa je vpisano kolikokrat sem ga vpisala na Listu1
List1 B2 = VPISAN X v Listu 2 B2 pa je vpisano kolikokrat sem ga vpisala na Listu 1 in tako dalje.
Zanima pa me tudi to kako bi potem na Listu1 vpisane X avtomatsko izbrisalo da bi lahko potem v prazne vrstice vpisovala nove X seveda v Liatu2 pa mi ne sme izbrisati rezultatov.
Se upravičujem če nisem bila dovolj jasna.
Hvala za ugodno rešitev.
l.p

[admin]

Pozdravljeni,

Poskušam razumeti, kaj želite... Ali potrebujete oz. iščete nekaj takšnega: http://www.matjazev.net/forum/viewtopic.php?f=2&t=1693?

[princesa]

pozdravljeni
ne ni to.
v listu1

[princesa]

Pozdravljeni
ne ni to v mislih imam da bi na LISTU1 A1 vpisala X ali ŠT. v LISTU 2 pa bi mi to seštelo IN NA LISTU2 tega rezultata ne izbriše
LISTU1 A1 bi vpisala C ali ime. v LISTU 2 pa bi mi to seštelo vendar v novi vrstici to pa je A2 IN TAKO DALJE
se upravičujem ker nisem tako vešča v teh zadevah
l.p

[admin]

se upravičujem ker nisem tako vešča v teh zadevah
Ni problema, saj zato pa je forum... je pa res, da očitno želite nekaj, kar v Excelu ni direktno podprto oz. Excel ni namenjen čemu takšnemu. Excel namreč ni namenjen nalogam, kjer bi bilo potrebno vedeti, kaj je bilo nekoč zapisano v neki celici... Malce opišite, kaj bi v originalu želeli rešiti, torej ne kako temveč kaj...

[princesa]

da sebesede ali številke ki so vpisane na listu 1 v stolpcu B od 1 dalje to sešteje na listu2v vsako vrstico posebej

[admin]

hm... Sem šel brat celotno tematiko in kolikor vidim, vi iščete nekaj takšnega:

1. Oba lista (List1, List2) sta prazna
2. Na list 1 vpišete X v kolono B, v recimo vrstice 3, 18, 28, in 100
3. Zaradi vnosa X-ov na list 1 se vam na listu 2 v vrsticah 3,18, 28 in 100 vpiše številka 1 (ker so v teh vrsticah vpisani X-i na listu 1)
4. Potem na listu 1 X-e pobrišete, na listu 2 pa morajo vrednosti v vrsticah 3,18, 28 in 100 ostati.
5. Potem znova vpišete X-e na listu 1 v recimo vrstice 5, 15, 28, 100, 105 in zaradi tega se na listu 2 popravijo vrednosti v vrstici 3 piše 1 (od prej), v vrstici 5 tudi piše 1, v 15 in 18 tudi 1, v 28 in 100 pa 2...
6. Potem pač ponavljate brisanje in vpisovanje X-ov na listu 2 pa želite vedno imeti seštevke...

Ali je to tisto kar iščete?

[princesa]

pozdravljeni to bi naj bilo to
l.p

[admin]

Toda, to pa je potem natanko tisto, kar je potreboval tudi uporabnik v že omenjeni tematiki (http://www.matjazev.net/forum/viewtopic.php?f=2&t=16933), in, na žalost, je tudi odgovor povsem enak :

Z vgrajenimi funkcijami se tega ne da rešiti, makro pa se seveda lahko napiše. Makro mora slediti spremembam na listu 1 in ustrezno ukrepati na listu 2.

[princesa]

po dolgem brskanju po foromu semi je posrečilo najti tole kodo ki mi dela prebližno to kar hočem jo prilagam:Sub PrepisiIzList1NaList2()

Dim v1 As Long ' vrstica na listu 1

Dim v2 As Long ' vrstica na listu 2

Dim l1 As Worksheet ' list 1

Dim l2 As Worksheet ' list 1



Set l1 = Worksheets("List1")

Set l2 = Worksheets("List2")



' sprehodim se po listu 1, dokler so vpisana imena

v1 = 1

While (Not IsEmpty(l1.Cells(v1, 1)))

' sprehodim se po listu 2 in iščem ime iz lista 1

v2 = 1

While (Not IsEmpty(l2.Cells(v2, 1))) And (l1.Cells(v1, 1) <> l2.Cells(v2, 1))

v2 = v2 + 1

Wend



' vpišem ime na list 2

l2.Cells(v2, 1) = l1.Cells(v1, 1)

l2.Cells(v2, 2) = l2.Cells(v2, 2) + 1





v1 = v1 + 1

Wend

End Sub

sedaj me pasamo zanima kako nerediti neki gumb za aktivirenje na listu1 ker sedaj moram v stran za aktiviranje makroja to pani preveč udobno,ali mogoče obstaja kakšna druga varianta za aktivacijo prvega lista
l.p.

[admin]

Odvisno od verzije Excela, ki jo imate.

V kolikor imate Excel starejši od 2007 potem se odprite orodno vrstico 'Obrazci' in tam boste našli tudi kontrolo gumb, ki jo samo prenesite na list 1 in takoj se bo odprlo okno, kjer boste lahko izbrali makro, ki naj se izvede, ko bo uporabnik kliknil gumb.

V kolikor pa imate Excel 2007 ali novejši, pa se gumbi nahajajo na zavihu 'Razvijalec'. V kolikor zavihka Rezvijalec v traku ne vidite, morate:

1. klikniti 'Office gumb' - to je gumb zgoraj levo v Excelu
2. v meniji klikniti gumb 'Excelove možnosti' (spodaj desno)
3. Odpre se novo okno in tam imate od opcijo 'Priljubljeno' podopcije: 'V traku prikaži jeziček 'Razvijalec'', ki jo morate seveda odkljukati!

[princesa]

hvala za pomoč,
Sedaj pa sem naredila gumb na listu 1 in ne vem kakšen je makro da bi mi te vpisane številke ob pritisku nanj prekopiral v list2
lepdan še naprej

[admin]

Kako ne veste kateri makro, če pravite, da vam gorni makro dela tisto kar želite => to je torej tudi odgovor na vaše vprašanje - na gumb morate pripeti pač gorni makro, torej 'PrepisiIzList1NaList2'

[princesa]

hvala za pomoč dela super sedaj pa me še zanima ali je pravi makro za soltiranje ki bi mi naj soltiral v drugem listu pod A in B stolpcu ter kam ga naj prepnem.Želela bi ko pritisnem gumb za potrditev na prvem listu da bi mi avtomatsko soltiralo v drugem listu.
hvala
l.p

Private Sub Worksheet_Change(ByVal Target As Range)
'sortiramo samo v prvi koloni
If (Target.Column = 1) Then
Range("A:A").Sort Key1:=Target, Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

End If
End Sub

[admin]

Koda, ki ste jo posredovali bi sortirala tabelo po koloni A ob vsaki spremembi na listu....

Makro, ki bi po isti logoki sortiral list2, pa je zatorej takšenle:

Koda: Izberi vse

Private Sub Worksheet_Change(ByVal Target As Range)
	'sortiramo samo v prvi koloni
	If (Target.Column = 1) Then
		Worksheets("List2").Range("A:A").Sort Key1:=Target, Order1:=xlAscending, Header:=xlGuess, _
		                                      OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
		                                      DataOption1:=xlSortNormal
	End If
End Sub