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)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.