< návrat zpět
MS Excel
Téma: Chyba v kódu 2 
Zaslal/a Martin12345678 21.9.2013 14:11
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
cmuch(21.9.2013 16:42)#015366 
Nahraď řádek
Worksheets("Databáze nabídek").Cells(radek, 3) = Worksheets("Pom list").Range("C6:CPR6")
tímto
Worksheets("Databáze nabídek").Range("C" & radek & ":CPR" & radek).Value = Worksheets("Pom list").Range("C6:CPR6").Value
Musíš se takto odkazovat na stejnou oblast.
citovatDěkuji za pomoc:-)
citovatJeš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é?
citovatji026441(24.9.2013 17:34)#015418 V příloze jsem vytvořil jednoduchý příklad využítí msgboxu pro rozhodnutí. Pokud najde číslo z listu1 na listu2 tak ho bud vymaže, nebo nechá. Zapracuj si to podle potřeby.
citovatPůjde to zapracovat do výše uvedeného kódu?
Omlouvám se, že se ptám jako bl..c, ale fakt v těch kódech plavu:-(
citovatji026441(24.9.2013 19:12)#015421 Super, díky ti moc...
citovatcmuch(24.9.2013 19:48)#015426 Tady je jiné řešení.
Je tam volba přepsání a smazání jak ses ptal výše.
citovatI tobě moc díky za pomoc...
citovat
RSS nejnovější články