Příspěvky uživatele

< návrat zpět

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

Dialog "Má se existující soubor nahradit? (25.7.2014 10:53)

archangel napsal/a:

Díky za snahu, podobně jako ty to řeším i já.
Jen mě napadlo prubnout to jinak.

Nemáš zač. taky se rád přiučím :)

Dialog "Má se existující soubor nahradit? (25.7.2014 10:27)

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

Dialog "Má se existující soubor nahradit? (25.7.2014 9:30)

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

Rozsáhlí seznam v 1 buňce (24.7.2014 10:58)

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

VBA combobox (22.7.2014 15:21)

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

Seřazení a vypsání hodnot (18.7.2014 11:05)

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

Kopírování dat z jednoho do druhého souboru (16.7.2014 22:26)

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