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

MS Excel

Téma: doplnanie cisel do tabuliek

Zaslal/a dialektor 27.11.2014 18:32

Ahojte, Vas kolega mi napisal kod
Sub subAddDocNmbr()

Worksheets("zadat dokument").Protect UserInterfaceOnly:=True



With Sheets("zoznam dokumentov").Range("A2")

If Application.WorksheetFunction.CountIf(.Resize(.CurrentRegion.Rows.Count, 1), Sheets("zadat dokument").Range("B2").Value) > 0 Then

MsgBox "Hodnota už existuje!", vbOKOnly + vbExclamation, ThisWorkbook.Name

Else

If IsEmpty(.Cells(1)) Then

.Value = Sheets("zadat dokument").Range("B2").Value

Else

.Offset(.CurrentRegion.Rows.Count, 0).Value = Sheets("zadat dokument").Range("B2").Value

End If



Sheets("zadat dokument").Range("B2").Value = Sheets("zadat dokument").Range("B2").Value + 1

End If

End With 'Sheets("zoznam dokumentov").Range("A1")

End Sub

Kod ma sluzit k automatickemu generovaniu cisla dokumentu a ukladania dokumentu do prislusneho sheetu. Kod funguje bez problemov a dakujem Elchovi za pomoc a cas ktory mi venoval. Problem mam stym ze ked doplnim nazov stlpca a1 kam uklada cisla dokumentov tak prestane kod fungovat ... resp. cisla nejdu po poradi .. Za pomoc dakujem

Zaslat odpověď >

---

kp57(27.11.2014 23:16)#022563

Pro A2:.Offset(.CurrentRegion.Rows.Count - 1, 0).Value = Sheets("zadat dokument").Range("B2").Value
citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse