Příspěvky uživatele

Myslím že se tento příspěvek může zamknout..díky

Děkuji

Ještě prosím o pomoc s tímto:
Šla by vložit do kódu možnost, aby se přepsal stávající záznam (nebo byl řádek se záznamem vymazán a založen nový) v databázi pod číslem př. CN0023 pokud je exportována nabídka se stejným číslem CN0023?
Představa je taková, že by se zobrazilo stávající upozornění o nalezeném záznamu se stejným číslem a navíc by přibyla možnost přepsání záznamu.
Je to proveditelné?

Děkuji za pomoc:-)

Prosím o další pomoct s chybkou v kódu. Trošku jsem si pohrál, ale někde mám problém. Potřebuji kódem zkopírovat buňky B6:CPR6 v řádku a vložit do jiného listu. Jen mě to nějak nefunguje. Zkoušel jsem to záznamem makra, což je v pohodě, ale při vkládání do cílového sešitu potřebuji, aby se kopírované buňky vložily do dalšího volného řádku, to ale nedám:-(Problém určitě bude v tomto: Worksheets("Databáze nabídek").Cells(radek, 3) = Worksheets("Pom list").Range("C6:CPR6")
Přikládám ukázku.
Tlačítko pro export je v listu Nabídka.
Prosím o pomoct

Sub Export_do_databaze()
ActiveWorkbook.Save

Dim zdroj As String
zdroj = ActiveWorkbook.Name

Dim c_Nabidky As String
c_Nabidky = Worksheets("Nabídka").Cells(13, 18).Value ' Číslo nabídky

With Worksheets("Databáze nabídek")
If Application.WorksheetFunction.CountIf(Range(.Cells(2, 2), .Cells(Columns(1).Rows.Count, 2).End(xlUp)), c_Nabidky) > 0 Then
' If Application.WorksheetFunction.CountIf(Range(.Columns(2)), c_Nabidky) > 0 Then
MsgBox "V databázi už tato nabídka existuje, je nutné změnit číslo cenové nabídky?", vbOKOnly, "Nabídka už existuje"
Else
Dim radek As Integer
radek = Worksheets("Databáze nabídek").Cells(Columns(1).Rows.Count, 2).End(xlUp).Row + 1

'Sheets("Pom list").Select
'Range("B6:CPR6").Select
'Application.CutCopyMode = False
'Selection.Copy
'Sheets("Databáze nabídek").Select
'Range("B13").Select
'Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Worksheets("Databáze nabídek").Cells(radek, 2) = Worksheets("Nabídka").Range("R13") 'Číslo nabídky
Worksheets("Databáze nabídek").Cells(radek, 3) = Worksheets("Pom list").Range("C6:CPR6")
MsgBox "Export do databáze byl ukončen", vbOKOnly, "Info"
End If
End With 'Worksheets("Databáze nabídek")
End Sub

Děkuji za opravu, úpravu, kódu:-)

Tak už jsem na to přišel. Zkopíroval jsem vzorce do sloupce, sloupec zkopíroval a pak klik do řádku a ve volbě možnosti vložení jsem dal Transponovat. Ale stejně by mě zajímalo zda by to nešlo udělat tažením do strany?

Prosím o pomoc s kopií vzorce do sloupců tažením.
Potřebuji z buňky A1 kopírovat vzorec =KDYŽ(JE.ČISLO(Nabídka!$B24);Nabídka!$B24;""), ale tak aby v každém sloupci se změnilo číslo řádku 25, 26 atd.
Nemůžu na to přijít:-(

Zvašich reakcí usuzuji, že s velkým množstvím dat v seznamu bude hledání duplicit pomalé. Je tedy možné Vás požádat o úpravu kódu?

No k tomu jsem se ještě nedostal, po pravdě nevím kam to umístit. Do listu ve VBA?

Díky moc, vyzkoušeno a vše ok

Zde je ukázka. Export je z listu Nabídka

Mnoho pokusů o to aby to fungovalo, ale i když zakomentovaný není, prostě to nefunguje. Funguje to pouze pokud je v MsgBoxu vbYesNo, ale potřebuji tam mít pouze jedno tlačítko OK. Tak nevím, kde dělám chybu:-(

Prosím o radu. V kódu je podmínka, která má najít již uložený záznam na listu a pokud jej najde, tak se má proces kopírování ukončit, bohužel prostě nevím jak na to, pravděpodobně bude v kódu něco chybět, nebo jsem něco dal někam blbě. Díky

Sub Export_do_databaze()
Application.ScreenUpdating = False

Dim c_Nabidky As String
zdroj = ActiveWorkbook.Name

Dim doDB As Boolean

' EXPORT NABÍDKY

doDB = True
ActiveWorkbook.Save
c_Nabidky = Worksheets("Nabídka").Cells(13, 18).Value ' Číslo nabídky

'existuje už v databazi?
For i = 2 To Worksheets("Databáze nabídek").Cells(65000, 2).End(xlUp).Row + 1
If c_Nabidky = Worksheets("Databáze nabídek").Cells(i, 2) Then
f_zprava = MsgBox("V databázi už tato nabídka existuje, je nutné změnit číslo cenové nabídky?", vbNo, "Nabídka už existuje")

Select Case f_zprava

Case vbNo
doDB = False
'Exit Sub
End Select
End If
Next i

'ulozeni do databaze
radek = Worksheets("Databáze nabídek").Cells(65000, 2).End(xlUp).Row + 1
If doDB = True Then
Worksheets("Databáze nabídek").Cells(radek, 2) = Worksheets("Nabídka").Range("R13") 'Číslo nabídky
Worksheets("Databáze nabídek").Cells(radek, 3) = Worksheets("Nabídka").Range("K16") 'Datum vystavení

End If

f_zprava = MsgBox("Export do databáze byl ukončen", vbYes, "Info")

End Sub

Lze pomocí comboboxu, který je v UF propojit na buňku tak jako je tomu u stahovacího prvku, kdy se zadá vstupní oblast a propojení s buňkou?
Combo mě načte seznam údajů z listu, ale potřebuji, aby se mě do buňky A1 zapsalo pořadové číslo z načteného seznamu...př. Záznam 5 je pátý v řadě, tak v buňce A1 bude číslo 5. Prosím o radu...

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje