< návrat zpět

MS Excel

Téma: vytvoření makra rss

Zaslal/a dream2003 25.8.2012 11:32

dobrý den potřeboval bych vytořit makro příloze je soubor jak by měl výsledek vypadat do sloupce A si nakopíruju čísla objednávek a ve sloupci B jsem si pomohl zatím vzorcema a pevnýma hodnotama počet objednávek se mění výsledek by měl stejný jako sloupec B děkuji za pomoc

Příloha: zip9313_pokus.zip (14kB, staženo 20x)
Zaslat odpověď >
misocko(26.8.2012 22:15)#009326
avatar
????????????????????????????????????
precital si si to po sebe ?citovat
Jeza.m(30.8.2012 16:13)#009375
Jeza.m
Sice to moc nechápu ale budiž
Public Sub pokus()
Dim rd As Single
Dim rd2 As Single
rd = 1
rd2 = 1
Do While Cells(rd, 1) <> ""
Cells(rd2, 2) = 3
Cells(rd2 + 1, 2) = Cells(rd, 1)
Cells(rd2 + 5, 2) = 2
Cells(rd2 + 7, 2) = 13
Range("B" & rd2, "B" & rd2 + 8).BorderAround xlSolid

With Range("B" & rd2, "B" & rd2 + 8)
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="=$B$" & rd2 + 1 & ">0"
.FormatConditions(1).Interior.ColorIndex = 35
.FormatConditions.Add Type:=xlExpression, Formula1:="=$B$" & rd2 + 1 & "=0"
.FormatConditions(2).Interior.ColorIndex = 38
End With

rd2 = rd2 + 9
rd = rd + 1
Loop
End Sub

M@citovat
dream2003(9.9.2012 12:48)#009445
avatar
děkuji to je přsně co jsem potřebovalcitovat
misocko(10.9.2012 20:01)#009450
avatar
jazykova bariera 5citovat
dream2003(10.9.2012 20:28)#009452
avatar
nebo jsem špatně vysvětlil co vlastně chcicitovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

On-line nástroje