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

Příspěvky uživatele

ale teď jsem narazil na problém, když to mám na svém disku tak to funguje, ale když soubor přesunu na firemní server tak tam to graf.gif uloží, ale nenačte ho
i když mu definuji přesnou cestu odkud to má načíst

EDIT:
tak jsem to nakonec zmastil takhle:

Private Sub UserForm_Initialize()

Dim Dateiname As String, Graf As Chart
Set Graf = Sheets("Vyhledat").ChartObjects("Graf 7").Chart
Dateiname = ThisWorkbook.Path & "\graf.gif"
Graf.Export Filename:=Dateiname, FilterName:="GIF"
'Image1.Picture = LoadPicture(Dateiname)
Sheets("Lisy - Vedouci smen").Select
'Add Dynamic Image and assign it to object 'Img'
Set Img = UserForm2.Controls.Add("Forms.Image.1")

With Img
'Load Picture to Image Control
.Picture = LoadPicture(Dateiname)

'Align the Picture Size
'.PictureSizeMode = fmPictureSizeModeStretch
.Width = 717
.Height = 460
'Image Position
.Left = 20
.Top = 100
End With
End Sub

Zdravím,
už 5 hodin se trápím a nejde mi dát obrázek fo formu..
Uloží se mi obrázek grafu na disk a tím jsem skončil.

Private Sub UserForm_Initialize()

Dim Dateiname As String, Graf As Chart
Set Graf = Sheets("Vyhledat").ChartObjects("Graf 7").Chart
Dateiname = ThisWorkbook.Path & "\graf.gif"
Graf.Export Filename:=Dateiname, FilterName:="GIF"
Image1.Picture = LoadPicture(Dateiname)
Sheets("Lisy - Vedouci smen").Select

End Sub


nevíte kde dělám chybu ?
Píše mi to chybu u:
Image1.Picture = LoadPicture(Dateiname)

Moc moc moc prosím.. ( přílohu bohužel nemůžu dát )

Ale pokud bude soubor používat více uživatelů, tak budeš horko těžko všechny obcházet kdo ho má zapnutý.

Tady máš kód pokud nemáš otevřený soubor tak se ti otevře pokud máš otevřený tak se jen zkopíruje...

Jen si uprav cestu, kde se nachází..

Sub copy()

Dim strBookName As String
strBookName = "TADYkopirovat.xlsx"
If WorkbookOpen(strBookName) Then
Workbooks("TADYkopirovat.xlsx").Worksheets("List1").Range("A3:I35").Value = Workbooks("odTUD.xlsm").Worksheets("List1").Range("A5:I37").Value
Else
Workbooks.Open FileName:="C:\TADYkopirovat.xlsx" ' <-Tady upravit cestu.......


Workbooks("TADYkopirovat.xlsx").Worksheets("List1").Range("A3:I35").Value = Workbooks("odTUD.xlsm").Worksheets("List1").Range("A5:I37").Value
End If

End Sub

Function WorkbookOpen(strWorkBookName As String) As Boolean
Dim oXL As Excel.Application
Dim oBk As Workbook

On Error Resume Next
Set oXL = GetObject(, "Excel.Application")
If Err.Number <> 0 Then
Err.Clear
WorkbookOpen = False
Else
Set oBk = oXL.Workbooks(strWorkBookName)
If oBk Is Nothing Then
WorkbookOpen = False
Else
WorkbookOpen = True
Set oBk = Nothing
End If
End If
Set oXL = Nothing
End Function

A nepomohl by ti sešit jen pro čtení ?

http://www.vbaexpress.com/kb/getarticle.php?kb_id=468

Zdravím,
i díky tvému luxusnímu návodu jsem na to nepřišel.
Chtěl jsem tam dodat ještě směny, jelikož potřebuji v DISORDER_A vyhledávat pouze směny 123 resp. větší než 0.
A v DISORDER 0 vyhledávat pouze směny 0.
Strávil jsem nad tím dva dny a na tohle jsem asi vážně trouba 7 .
Přidával jsem tam všechno co mě napadlo, ale totálně jsem selhal..

EDIT:
momentálně jsem udělal:
pojmenoval buňky takhle s názvem SHIFT:
=POSUN(STOPS!$C$1;POZVYHLEDAT(DISORDER_A!$A2;STOPS!$B$2:$B$1998;0);;COUNTIF(STOPS!$B$2:$B$1998;DISORDER_A!$A2))

a do DISORDER_A jsem přidal podmínku ať to vyhledá SHIFT<>0

a stejnak mi to nejede 7

Mohl by jste mi někdo poradit ?

EDIT2:

a pak jsem zkoušel :
=POSUN(PODSKUPINA;;-8)
, ale se stejným výsledkem nevím na které buňce mám stát a jestli to píšu správně

Děkuji mockrát

Takhle?

Zdravím,
nevím kde stále dělám chybu:
' zápis do STATISTIKY


datumbunka = Range("U2").Value
Sheets("STATISTIKA").Select
Sheets(Active).Cells(47, o).Copy

With Sheets("STATISTIKA").Range("A:A")
Set RNG = .Find(What:=datumbunka)

Sheets("STATISTIKA").Cells(RNG, 2).PasteSpecial xlPasteValues


Sheets(Active).Select
Range("A1").Select
' ukončení zápisu do STATISTIK

Akurát v té buňce U2 je datum a hledá mi to se špatným formátováním

Akurát nechápu, že mi to vyhledá řádek 44101 a do sloupce B zapíše tu hodnotu, kterou nakopíruje

Díky za jakoukoliv radu

Nevíte někdo?

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse