curro70
02.12.10,17:39
Dobrý deň
Potrebujem zoradiť osem skupín v jednom hárku.
Použil som tento kód pre jednu skupinu:
Private Sub Worksheet_Activate()
ActiveSheet.Unprotect
Sheets("Hárok2").Select
Range("m3:n7").Select
Selection.Sort Key1:=Range("n4"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Pre prvú skupinu mi to zoraďuje správne, ale už pre druhú skupinu mi to zoraďovať nechce. Treba niečo zmeniť? Ďakujem.
A ešte jeden problém. Môže mi niekto poradiť, ako sa dá cez Forms.TextBox prenášať do jednotlivých buniek?
Napr... Keď napíšem nejaké slovo do Forms.TextBox, chcel by som aby mi to preplo keď stlačím Forms.CommandButton do A1, A2, A3 atď...pričom bi mi to slovo zmizlo z Forms.TextBox. Je na to nejaký kód? Ak áno vopred Ďakujem!!!
Potrebujem zoradiť osem skupín v jednom hárku.
Použil som tento kód pre jednu skupinu:
Private Sub Worksheet_Activate()
ActiveSheet.Unprotect
Sheets("Hárok2").Select
Range("m3:n7").Select
Selection.Sort Key1:=Range("n4"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Pre prvú skupinu mi to zoraďuje správne, ale už pre druhú skupinu mi to zoraďovať nechce. Treba niečo zmeniť? Ďakujem.
A ešte jeden problém. Môže mi niekto poradiť, ako sa dá cez Forms.TextBox prenášať do jednotlivých buniek?
Napr... Keď napíšem nejaké slovo do Forms.TextBox, chcel by som aby mi to preplo keď stlačím Forms.CommandButton do A1, A2, A3 atď...pričom bi mi to slovo zmizlo z Forms.TextBox. Je na to nejaký kód? Ak áno vopred Ďakujem!!!
PaloPa
04.12.10,12:34
Neviem, či ide o triedenie podľa iného stĺpca v rámci skupiny
alebo inú skupinu v tom istom liste (to ide - viď prílohu).
Ak to nie je ono, pripni sem ako prílohu tvoj problematický zošit.
Ak však pri druhom triedení vyhodí chybu ako je v obrázku,
môže to súvisieť tým, že treba prehodiť prvé dva riadky, t.j.
najskôr Select sheet, potom Unprotect.
P.
alebo inú skupinu v tom istom liste (to ide - viď prílohu).
Ak to nie je ono, pripni sem ako prílohu tvoj problematický zošit.
Ak však pri druhom triedení vyhodí chybu ako je v obrázku,
môže to súvisieť tým, že treba prehodiť prvé dva riadky, t.j.
najskôr Select sheet, potom Unprotect.
P.
tranzistor20
05.12.10,07:00
Zda sa mi to alebo je tento prispevok duplicitny s tymto ?
http://www.porada.sk/t152786-pomoc-v-exceli.html
http://www.porada.sk/t152786-pomoc-v-exceli.html