Příspěvky uživatele


< návrat zpět

Strana:  « předchozí  1 2 3 4 5 6 7 8 9   další » ... 14
Spuštění makra pouze při první změně buňky (25.5.2014 17:37)

Přidal jsem jednu proměnou do každého listu a tu jsem přidal do makra "řádky".

heslo do buňky (23.5.2014 9:36)

Vlož do modulu listu, kde chceš mít tu zamknutou buňku.
Platí pro E10 a heslo "heslo", změň dle sebe.
Dim pwd As String

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("E10").Address Then
If Not pwd = "heslo" Then
With Application
.EnableEvents = False
.Undo
.EnableEvents = True
MsgBox "neplatne heslo"
End With
End If
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Address = Range("E10").Address Then

pwd = InputBox("Zadej heslo", "Password", "password")

If Not pwd = "heslo" Then
MsgBox "Neplatne heslo"
End If
End If
End Sub

Hypertextový odkaz (22.5.2014 11:48)

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
SubAddress:="'nazev listu'!" & Sheets("nazev listu").Range("I" & Rows.Count).End(xlUp).Row + 1, _
ScreenTip:="komentar", _
TextToDisplay:="zobrazovany text"

Variabilní název buňky (22.5.2014 11:37)

Do A1 dej =B7

Nastavení formátu nového listu (16.5.2014 6:31)

Udělej si list "mustr" a ten si vždy zkopíruj a přejmenuj
(pravým tl. .. přesunout kopírovat ... vytvořit kopii)
nebo si vytvoř makro, kterým pak naformátuješ nový list tak jak potřebuješ,
ale ta první možnost je lepší na pozdější úpravy.

Úprava kopírujíécího makra (16.5.2014 6:27)

Tak asi něco dělám špatně. Mě to nezlobí.

Posílám příklad.

Úprava kopírujíécího makra (15.5.2014 8:20)

Ještě bych to rád upravil tak, aby se nekopírovalo v případě, když se celý řádek označí a hodnoty v něm se smažou (první otázka se týkala postupného vymyzávání).
To je nějaká mýlka, přečti si svuj požadavek, upravil jsem tvoje makro.

Dim ChngRow As Integer
Dim ChngCell As Boolean
Dim ChngCellValueOld As Variant
Dim ChngCellValueNew As Variant

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim SrcRange As Range
Dim NewRow As Integer
Dim CllSrcRange As Range

If ChngCell = True And Not ActiveCell.Row = ChngRow And Not ChngCellValueOld = ChngCellValueNew Then

Set SrcRange = Range("D" & ChngRow & ":S" & ChngRow)

Application.EnableEvents = False
Range("S" & ChngRow).Value = Now
Application.EnableEvents = True

With Sheets("History")
.Range("a5").EntireRow.Insert
.Range("5:5").ClearFormats
.Range("A5:N5").Value = SrcRange.Value
.Range("O5").Value = Now
End With
Set CllSrcRange = Nothing
End If
ChngCell = False
ChngCellValueOld = ActiveCell.Value
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Cll As Range

For Each Cll In Target.Cells
If IsEmpty(Cll) Then
Else
ChngRow = Target.Row
ChngCell = True
ChngCellValueNew = Target.Resize(1, 1).Value
Exit For
End If
Next
End Sub

Vypsání hodnot (12.5.2014 13:33)

Tady koukni do přílohy, mě to jde.

Vypsání hodnot (12.5.2014 6:15)

Tady je varianta maticoveho vzorce co upravuješ, vlož do tvé buňky F3586.
=KDYŽ(ŘÁDEK()-3585>COUNTIF($F$3:$F$3568;1);"";INDEX($B$3:$B$3568;SMALL(KDYŽ($F$3:$F$3568=1;ŘÁDEK($F$3:$F$3568)-2;1000000);ŘÁDEK()-3585)))

Pořadové číslo s řadou (11.5.2014 15:02)

Řešení od eLCHy do makra.

Číslo se vypíše do sl.A aktivního řádku.

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 2 Then
Cells(Target.Row, "A").FormulaArray = "=MAX(R2C4:R65536C4*(R2C2:R65536C2=R" & Target.Row & "C2))+1"
Cells(Target.Row, "A") = Cells(Target.Row, "A")
End If
End Sub

Vypsání hodnot (11.5.2014 14:32)

lubo napsal/a:

...malá nápověda...
2. K čemu je 2. funkce ŘÁDEK? Má něco být jinak, když vzorce posuneš?
3. K čemu slouží 1. a 3. funkce ŘÁDEK? Má něco být jinak, když vzorce posuneš?

Takže když shrnem nápovědu od Luba.

2. Pokud máme oblast od 1.řádku nic se nemění
-pokud ji někam posunem tak oto posunem i počet řádků
-tzn. když budu mít oblast až od řádku 5 odečtu 4

3. Pokud chci výpis mít od 1. řádku nic se nemění
-pokud třeba od 3. řádku tak odečtu 2 řádky

Tak zkus a uvidíš.

Úprava kopírujíécího makra (10.5.2014 21:39)

Tady je makro, které si musíš trochu doupravit, páč nevím jaké makro máš.

Sub KopirujJenKdyzNecoJe()
Dim SrcRange As Range, CllSrcRange As Range
Dim ChngRow As Integer

Set SrcRange = Range("A" & ChngRow & ":K" & ChngRow)

'jsou vsechny bunky prazdne? pokud ano nedelej nic
For Each CllSrcRange In SrcRange.Cells
If IsEmpty(CllSrcRange) Then
'nedelej nic
Else
'sem napis to kopirovani
Exit For
End If
Next CllSrcRange
Set CllSrcRange = Nothing
End Sub

Vypsání hodnot (6.5.2014 19:03)

Tak toho jsem si nevšim, on to tam lubo dává od 1.řádku (viz. 1.příspěvek)
Takže aby to platilo až od druhého řádku tak upravit vzorec na
=KDYŽ(ŘÁDEK()-1>COUNTIF($D$1:$D$29;1);"";INDEX($A$1:$A$100;SMALL(KDYŽ($D$1:$D$100=1;ŘÁDEK($D$1:$D$100);1000000);ŘÁDEK()-1)))

@Merlin99
Použij vzorec výše, uprav akorát sloupce a celkový počet řádků (od prvního řádku nechej)

@All
Ano pro další sloupce lze použít např. SVYHLEDAT

Vypsání hodnot (6.5.2014 5:58)

Ale jak pise Lubo, chce to ty vzorce pochopit.

Tlacitko,ktere prida hodnotu o 1 (30.4.2014 5:42)

Dá se řešit bez VBA pomocí ovládacího prvku formuláře "číselník".


Strana:  « předchozí  1 2 3 4 5 6 7 8 9   další » ... 14

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje