Příspěvky uživatele


< návrat zpět

Strana:  1 2 3 4 5 6 7 8 9   další » ... 11

Ahoj.

Potřebuji dosadit do listu "Zatížení kapacit" do "H7" celkovou hodnotu všech buněk z listu "Laser" sloupce "V:W", které mají datum ve sloupci "T" rovné a mezi datem z listu "Zatížení kapacit" buňka "F4" a "H4".

Snažím se použít =SUMIFS(LASER!V3:W1048576;LASER!T3:T1048576;"=>F4";LASER!T3:T1048576;"=<H4"), ale nedaří se.

Poradí někdo prosím?

Děkuji
Radek

elninoslov - určitě šlo 1 , děkuji.

Jde i toto.

Sub StrategickeDily()

Dim rngUrgence As Range, rngBunka As Range
Dim rngStrategickeDily As Range

With Sheets("Strategické díly")
Set rngStrategickeDily = .Range(.Cells(3, "A"), .Cells(.Cells(Rows.Count, "A").End(xlUp).Row, "A"))
End With

With Sheets("Urgence")
Set rngUrgence = .Range(.Cells(2, "C"), .Cells(.Cells(Rows.Count, "C").End(xlUp).Row, "C"))

For Each rngBunka In rngUrgence
If WorksheetFunction.CountIf(rngStrategickeDily, rngBunka.Text) > 0 Then
rngBunka.Interior.Color = RGB(0, 255, 0)
End If
Next
End With
End Sub


Každopádně děkuji všem.

misocko - děkuji za reakci. Pokusil jsem se tedy přihodit viz níže, ale podbarví se jen to co mám na A3 a pak už nic.

If cell(t).Value = Sheets("Strategické díly").Cells(3, 1).Value

Ahoj.
Chtěl bych požádat o pomoc se zacyklováním níže uvedeného.

Potřeboval bych dosáhnout toho, aby pokud v listu "Urgence" v sloupci "C" najdeš hodnotu z listu "Strategické díly" ze sloupce "A" , tak buňku v listě "Urgence" podbarvit zeleně.

Dim lastrowA As Long
lastrowA = Cells(Rows.Count, 1).End(xlUp).Row
t = 1
For Each cell In Range("C2:C" & lastrowA)
If cell(t).Value = Sheets("Strategické díly").Range("A3:A3").Value Then
cell(t).Interior.Color = RGB(0, 255, 0)
Else
t = t + 1
End If
Next

Jinak řečeno, nevím jak nahradit tento omezený výběr
Range("A3:A3").value

Děkuji
Radek

Elninoslov - pracuje to skvěle.

Děkuji moc.

Radek

Tak jsem na to asi došel. 1 1
Sub ASI()
Dim lastrowA As Long
lastrowA = Cells(Rows.Count, 1).End(xlUp).Row
Dim Found As Range
Set rng = Range("N1:N" & lastrowA)
Set Found = Columns("N").Find(What:="EBE", lookat:=xlPart)
i = 1
For counter = 1 To rng.Rows.Count
If rng.Cells(i) = Found Then
rng.Cells(i).Offset(0, 5).Range("A1").FormulaR1C1 = "REKLAMACE"
Else
End If
i = i + 1
Next
End Sub

Ahoj.

Ve sloupci "N" buňky a některé z nich obsahují část textu "EBE".
Potřeboval bych pokud takovou buňku najdu aby do sloupce "S" dopsat slovo "Reklamace".

Asi něco takového (toto mi bohužel nejede jak by mělo)Sub test()
Dim Found As Range, tempcell As Range
Set Found = Columns("N").Find(What:="EBE", lookat:=xlPart)
If Not Found Is Nothing Then
'Found.Offset(0, 5).Range("A1").FormulaR1C1 = "REKLAMACE"
Do
Set tempcell = Columns("N").FindNext
If tempcell Is Nothing Then Exit Do
Set Found = tempcell
Found.Offset(0, 5).Range("A1").FormulaR1C1 = "REKLAMACE"
Loop
End If
End Sub


Pomůže někdo?
Děkuji
Radek

Už to vidím, děkuji.

Nevím proč, ale vždy to havaruje na
Radku = .Cells(Rows.Count, 1).End(xlUp).Row - 1

elninoslov - pochopil jste přesně co jsem potřeboval, ale nechtěl jsem moc otravovat.

Tak jsem na každou vyhledávanou položku ze sloupce "D" napsal zvlášť proceduru.

Vím, že mým způsobem to není optimální, ale v celku to funguje.

Moc díky určitě využiji.
Radek

Ahoj.

Mám list "Urgence" zde potřebuji podbarvit buňky ve sloupci "A", které mají stejnou hodnotu jako buňka "D3" na listu "Strategické díly.

K tomu se snažím použít
For Each cell In Range("A2:A8000")
If cell(s).Value = Sheets("Strategické díly").Range("D3:D3").Value Then
cell(s).Interior.Color = RGB(0, 204, 255)

Else
s = s + 1
End If
Next


Někde je ale chyba.
Poradíte prosím?

Tak chyba mezi klávesnicí a židlí 5 .

V tabulce jsem měl filtr na vzestupné řazení. Pokud jsem o půlnoci tabulku promazal, abych dostal druhý den informace jen z následujícího dne, tak je logické, že tabulka neměla co řadit a tak při otevřeni havarovala.

No jo, krok po kroku a člověk na to po delší době přijde někdy i sám 5

Ahoj všem.

Mám excelový soubor, který ukládám pomocí procedury:
Application.DisplayAlerts = False
ActiveWorkbook.Close SaveChanges:=True
Application.DisplayAlerts = True

Tento soubor je uložen na síťovém serveru a v průběhu dne jsou do něj přidávány řádky s různým textem a čísly.
(sešit se pomocí jiné procedury v jiném sešitu otevře, nakopírují se do něj data, uloží se a zavře.

Cca po 5 takto otevřeních a uloženích pak vyvolávací procedura havaruje na hlášce viz příloha.

Máte prosím někdo podobnou zkušenost? Už se s tím otravuji asi pátý den a pořád dokola.

Používaný Office 2016

Děkuji
Radek

Já jsem tak hloupý, vždyť je to tak jednoduché 5 5
Sheets("Prac list").Cells(65536, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues

Ahoj.

Nevím si rady jak vložit zkopírovaný výběr z jiného listu do do první prázdné buňky ve sloupci "A" na listě "Prac list".

Důvod: procházím cca 20-30 listů, ve kterých odfiltruji určité řádky a to co zůstane potřebuji nakopírovat do Prac list. Následně dělám součty za jednotlivé položky.

Poradíte někdo?

Sub Krok1(x As Boolean, nazev As String)
Set ws = Sheets(nazev)
Set ws1 = Sheets("Prac list")
'zrušit ukotvení
SplitColumn = 0
SplitRow = 0

With ws
If .AutoFilterMode = True And .FilterMode = True Then
'MsgBox "Data jsou filtrovaná. Sešit obsahuje filtr ;)"
.ShowAllData
ElseIf .AutoFilterMode = True Then
'MsgBox "K dispozici filtry - data nefiltrovaná."
Else
'MsgBox "Sešit neobsahuje filtry."
.Range("A1:M1").AutoFilter
End If
End With

'ohraničit řádky a sloupce podle sloupce "C"
Dim lastrowF As Long
lastrow = Cells(Rows.Count, 3).End(xlUp).Row
ws.Range("A1:M" & lastrow).Borders.LineStyle = xlContinuous
'skryje řádky, když je ve sloupci "6" neboli "F" nějaká poznámka
ws.Range("A1:M" & lastrow).AutoFilter Field:=6, Criteria1:="="
'kopíruj viditelné řádky
'ws.Range("A1:M" & lastrow).Copy

'vlož do listu "Prac list" do první prázdné buňky ve sloupci "A"
'ws1.Offset(1, 0).ActiveSheet.Paste

End Sub


Strana:  1 2 3 4 5 6 7 8 9   další » ... 11

Uživatelské menu

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

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura III

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

Aktivní diskuse

Chyba ve vzorci

Jiří497 • 17.8. 22:10

Kopirovanie riadkov 1

elninoslov • 17.8. 20:19

Chyba ve vzorci

lubo • 17.8. 17:37

Chyba ve vzorci

Jiří497 • 17.8. 16:52

Kopirovanie riadkov 1

elninoslov • 17.8. 1:15

Kopirovanie riadkov 1

danis • 16.8. 23:13

Autom. podmienené vloženie obrázku + ulož. v PDF

Zdeno-Frano • 16.8. 22:23