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

Příspěvky uživatele

Zdravím,
potřeboval bych vyřešit takový problém...
Mám v listu STOPS tabulku ( zdroj pro vyhledávání )
pak tam je list DISORDER_A
tam je uveden ve sloupci A Lis (vyhledávací parametr) potřeboval bych:

Lis 700136 ( v listu STOPS ozn. žlutě )
aby to vyhledalo, když ve sloupci K+M něco najde ozn. červeně přepsalo do buňky v DISORDER_A, ( označeně červeně )
a tak samo převedlo i ten čas ( označené zeleně ) .

Př.
v listu DISORDER_A-
v řádku kde je 700136 ve sloupci (E - Porucha 1) - napsalo:
Přestavba forem - oprava posma a ve sloupci (F čas) napsalo:30 Sloupec (H - Porucha 2) napsalo: Sklad supportu a sloupci (F čas) napsalo: 3
a těch poruch tam může být i 20

Děkuji moc za pomoc

A nevíte někdo jestli jde vyhledat posledni stazeny soubor?

Zdravím, chci se zeptat, jestli jde udělat nějak jako je např:

=COUNTIF(A1:A10;"*Auto*")
ale, když se nachází v buňce A2 např. - (Auto má kola a automatickou převodovku)

Aby to sečetlo všechny slova auto = tedy výsledek by byl 2
Díky

EDIT: nyní to píše 1

tak to elninoslov nefungovalo, ale upravil jsem trochu to tvojeSub add()

Dim WS As Worksheet, Nazev As String
Nazev = Format(Now, "dd.mm.yyyy")
On Error Resume Next
Set WS = Worksheets(Nazev)
On Error GoTo 0
If Not WS Is Nothing Then MsgBox "Nelze pridat, jelikož se aktuální den už v sešite nachází!", vbExclamation: Exit Sub

Dim copr As String
copr = ActiveSheet.Name
Sheets.add After:=Worksheets(Sheets.Count):
Range("A1").Value = Format(Now, "dd.mm.yyyy")
Range("A1").Select
Selection.Value = WorksheetFunction.Text(Selection, "dd.mm.yyyy")
bunka = Range("A1").Value
ActiveSheet.Name = bunka
ActiveWindow.SelectedSheets.Visible = True
Worksheets("VZOR").Select
Cells.Select
Selection.Copy
ActiveWindow.SelectedSheets.Visible = False
Sheets(bunka).Activate
Cells.Select
ActiveSheet.Paste
ActiveWindow.Zoom = 55

End Sub

Ahojte,
mám takoví problém přidám list přejmenuji ho podle aktuálního data, ale nastane problém, když někdo v jeden den klikne 2x ( napíše to chybu, jelikož se název listu už v sešitu nachází )

Sub add()

Sheets("VZOR").Visible = True
Dim copr As String
copr = ActiveSheet.Name
Sheets.add After:=Worksheets(Sheets.Count):
Range("A1").Value = Format(Now, "dd.mm.yyyy")
Range("A1").Select
Selection.Value = WorksheetFunction.Text(Selection, "dd.mm.yyyy")
bunka = Range("A1").Value
ActiveSheet.Name = bunka
Worksheets("VZOR").Select
Cells.Select
Selection.Copy
ActiveWindow.SelectedSheets.Visible = False
Sheets(bunka).Activate
Cells.Select
ActiveSheet.Paste
ActiveWindow.Zoom = 55

End Sub

vím, že to bude nějaké if a else, ale nějak mi to do toho nejde zakomponovat

Jen, aby to napsalo :
MsgBox "Nelze přidat, jelikož se den už v sešitě nachází", vbExclamation

Díky moc za radu

Nevíte někdo?

Stále se nějak trápím a stále mi to nějak nejde..
Pro připomenutí..
Potřebuji, aby to v listu Program
Vypsalo z archívu posledních 10 řádků z listu Archív ( podle figury ) momentálně tam je předepsané 859.

Takže to co Vám najede tak akurát opačně a posledních 10

Děkuji moc za pomoc

Tímto si otevřeš DISK Z: a vyhledávaš na něm pozde soubory JPG

With Application.FileDialog(msoFileDialogFilePicker) 'spustí dialogové okno pro otevření
.InitialFileName = "Z:\" 'nastavení úvodní složky procházení
.Title = "Vyber adresár" 'nastavení názvu okna
.Filters.Add "Soubory pouze JPG (jpg)", "*.JPG*", 1 'nastavení filtru pro zobrazení souborů
.Show
If .SelectedItems.Count = 0 Then
MsgBox "Nebyly nacteny žádné soubory": Exit Sub 'pokud není vybrán žádný soubor, makro vypíše hlášení a ukončí se
ElseIf .SelectedItems.Count > 1 Then
MsgBox "Vyberte pouze jeden soubor!": Exit Sub 'pokud je vybráno více, než jeden soubor, makro vypíše hlášení a ukončí se
Else
zdrojovy_soubor = .SelectedItems(1) ' načte adresu souboru do proměnné
End If
End With
Workbooks.Open (zdrojovy_soubor) ' otevření souboru, který jsme vybrali

Zdravím mistři,
můžete mi někdo poradit s tímto kódem?
Dim Compld As Range
Set Compld = Range("C:N").find(What:=Range("A1").Value, LookIn:=xlValues, lookat:=xlWhole)
Range("B1").Value = Compld.Offset(, -9).Value

akurát potřebuji jak je Compld.Offset(, -9) posouvat vždy na sloupec C
Jelikož někdy to je -9 a někdy -5 atd..
Nevíte někdo ?

děkuji

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse