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

Příspěvky uživatele

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í"

Private Sub CommandButton1_Click()
Dim i As Integer, x As Integer
Dim sRange As String
Dim ws As Worksheet

Application.ScreenUpdating = False
'Set the Worksheet object to the Active Sheet
Set ws = ActiveSheet

'Get the range from the Range Cell
sRange = Range("A53").Value
x = ws.Range(sRange).Columns.Count ' počet sloupců
ws.Range(sRange).Copy
ws.Range("A56").PasteSpecial xlPasteAll, xlPasteSpecialOperationNone, False, True
Application.CutCopyMode = False

ws.Range("A56:B" & 56 + x).Sort ws.Range("B56"), xlDescending ' + počet sloupců

'Clear the worksheet object
Set ws = Nothing
End Sub

ted jsem to predelal tak že zadaný parametr hledá v souboru aaa.xls v rádku 1 (od range a1 smerem do prava) když najde tak do toho sloupcu to pak nasype data. když nenajde přida dalsi sloupec a nasype data.
radek ve kterem to má vyhledávat snad si už doladíte sám

dim to neřeší.
upravil jsem makro pro zadavaní do inputboxu viz priloha
nezapomente si zase upravit cestu pro soubor aaa.xls v makru

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje