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

MS Excel

Téma: vytvoření makra

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: 9313_pokus.zip (14kB, staženo 20x)

Zaslat odpověď >

---

misocko(26.8.2012 22:15)#009326

????????????????????????????????????
precital si si to po sebe ?citovat

Jeza.m(30.8.2012 16:13)#009375

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

děkuji to je přsně co jsem potřebovalcitovat

misocko(10.9.2012 20:01)#009450

jazykova bariera citovat

dream2003(10.9.2012 20:28)#009452

nebo jsem špatně vysvětlil co vlastně chcicitovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse