Příspěvky uživatele

Mno tak já to chtěl zkusit, ale že to máš rozházený min. na třech listech s tím, že tam máš i nějaké svátky tak to jsem raději vzdal hned na začátku.

fakt by to chtělo tu přílohu.

ahoj,
napadly mě dvě možnosti:

1. možnost (pomocí msgboxu)
Sub submitFeedback3()
Dim IE As Object
Public x As String
Dim retval As Integer
Application.ScreenUpdating = False
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "http://104.100.36.21/index.php"
Application.StatusBar = "Submitting"
' Wait while IE loading...
While IE.Busy
DoEvents
Wend
x = Cells(1, 1).Text

' **********************************************************************
'delay 5
retval = MsgBox("zmačkni enter pro pokračování", vbOKOnly)
IE.Document.getElementById("proc").Value = x
'**********************************************************************
Set IE = Nothing
Application.ScreenUpdating = True
End Sub

2. možnost (OnKey)
Dim x As String
Dim IE As Object
Sub submitFeedback4()
Application.ScreenUpdating = False
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "http://104.100.36.21/index.php"
Application.StatusBar = "Submitting"
' Wait while IE loading...
While IE.Busy
DoEvents
Wend
x = Cells(1, 1).Text

' **********************************************************************
'delay 5
Application.OnKey "{ENTER}", "Vypln"
Application.OnKey "~", "Vypln"
Application.OnKey "{ESCAPE}", "ResetTlac"
Exit Sub
' **********************************************************************
End Sub

Sub Vypln()
Call ResetTlac
IE.Document.getElementById("proc").Value = x
Set IE = Nothing
Application.ScreenUpdating = True
End Sub

Sub ResetTlac()
Application.OnKey "{ENTER}"
Application.OnKey "~"
Application.OnKey "{ESCAPE}"
End Sub

přikládám přepínání pomocí makra bez hyperlinků

WS_PDF = ActiveSheet
ještě to chce nasetovat
Set WS_PDF = ActiveSheet
sorry moje chyba

VBA
do ThisWorkbook vložit:
Private Sub Workbook_Open()
Randomize
List1.Range("F7") = Int(3 * Rnd) + 1
End Sub

Smazal jsem pár řadů ve zdrojovém kódu a smazal i userform.
Bohužel odzkoušet nemohu, jelikož tady v práci nemám nainstalovaný adobe acrobat.
Snad jsem nesmazal něco co jsem neměl

@ mikkinachtik
Z toho si nic nedělej

já si knížku koupil taky, ale popravdě jsem ji využil minimálně.

To chce zkoušet nové věci,
nahrávat makra pak je následně pochopit a upravit
na netu je toho spousta, hlavně když umíš trochu anglicky tak stačí napsat základní příkaz do vyhledávače a tam toho je mraky.
Všichni se učíme každým dnem.
takže zkoušej dál.

Ahoj,
nevím kolik fotek chceš najednou vložit a do kolika řádků a sloupců, takže jsem to udělal jednoduše.
Fotky se budou vkládat do řádku(1) vedle sebe.
řadky a sloupce jsem nastavil na 100px.
Kliknutím na buňku "A1" se otevře dialogové okno pro výběr fotek....

viz přílohu

do thisworkbook vložit:
Private Sub Workbook_Open()
Dim pdf As String, pdf_name As String
pdf_name = Dir("C:\Excel\" & "*.pdf")
pdf = "C:\Excel\" & pdf_name
If Not pdf_name = "" Then Call Imp_Into_XL(pdf, False) Else MsgBox "Složka neobsahuje žadný Pdf soubor"

End Sub

to Palooo:
pawson chtěl vyplnit 5 řádků pak přeskočit sloupec.

to pawson:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 8 Then Cells(3, Target.Column + 1).Select
End Sub

takže ti stačí použít jenom první řádek od Palooo.

Thak to je už otázka pro chytřejší než jsem já

co takhle

Application.DisplayAlerts = False

If Err.Number < 0 Then
otazka = MsgBox("Soubor BLABLA již existuje. Má se existující soubor nahradit?", vbYesNo)
If otazka = vbYes Then ActiveWorkbook.Save Else Exit Sub
End If

Nebylo by jednodušší použít vyhledávání "Ctrl+F" zadat hledaný výraz a dát najít vše?

Pak by jste věděl v kterých řádcích se hledaný výraz nachází.

ahoj apostrof máš špatně
ne “První”
ale "První"

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje