• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

moc děkuju

Zdravim opět vás prosím o začátečnickou radu

Mám macro

Sub Makro1()

ActiveWorkbook.Worksheets("Hlavní stránka").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Hlavní stránka").Sort.SortFields.Add Key:=Range("E1:W1"), _
SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,45+1.,45+2.,45+3.,45+4.,45+5.,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,90+1.,90+2.,90+3.,90+4.,90+5.,90+6.,90+7.,90+8.,90+9.,90+10.," _
, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Hlavní stránka").Sort
.SetRange Range("E1:W1")
.Header = xlGuess
.MatchCase = False
.Orientation = xlLeftToRight
.SortMethod = xlPinYin
.Apply
End With
End Sub



Tohle správně seřadí rádek 1.
Ale v tomhle sylu potřebuju seřadit dalších 4000 řádků.
Tedy seřadit 1 až 4000 řádek a buňky od sloupce E do W z levadoprava.

Děkuji Vám za každou sekundu mně věnovanou.

Bomba bylo mi jasné že tam bude or ale neviděl kde závorky moc děkuju

Zdr@vim potřebuji poradit jak přepsat tenhle kod

Sub smazpokudsenerovná1()
For Each cell In [A2:A10]
If Not cell.Value = 1 Then cell.ClearContents
Next cell
End Sub

Tenhle kod vymaže obsah buňky podud se obsah nerovná 1

Ale já potřebuji zapsat aby vymazal obsah buňky pokud se nerovná 1 a 2.

Prostě podmínka když není obsah 1 nebo 2 tak ClearContents.

Děkuji za rady předem.

Skvělé moc vám děkuji

Potřebuju odkazovat v tomhle stylu ale ne to tam psát ručně

Sub Makro1()
'
' Makro1 Makro
'

'
Range("A2").Select
ActiveCell.FormulaR1C1 = "=List2!R[-1]C"
Range("A3").Select
ActiveCell.FormulaR1C1 = "=List3!R[-2]C"
Range("A4").Select
ActiveCell.FormulaR1C1 = "=List4!R[-3]C"
Range("A5").Select
ActiveCell.FormulaR1C1 = "=List5!R[-4]C"
Range("A6").Select
ActiveCell.FormulaR1C1 = "=List6!R[-5]C"
Range("A7").Select
ActiveCell.FormulaR1C1 = "=List7!R[-6]C"
Range("A8").Select

End Sub

Zdravim už si fakt nevím rady, jsem začátečník, pokoušel jsem se marně něco nalézt na internetu.

O co jde?
Mám v Excelu dokument a v něm 1000 stránek.Stránka 2 až 1000 má v buňce informaci co chci zapsat do stránky 1 buňku po buňce.Nějaké rady na automatizaci?

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse