MS Excel

Téma: Další podmínka

Zaslal/a Raders486 23.10.2020 8:05

Ahoj.
Stávající podmínka = když je ve sloupci a prázdná buňka doplň "Ostatní"

Potřeboval bych ale ještě složitěji:
když je ve sloupci a prázdná buňka a ve sloupci M je číslo 1 nebo 2 doplň "nákup"

když je ve sloupci a prázdná buňka a ve sloupci M je číslo 3 doplň "prodej"

Pomůže někdo prosím, děkuji?

Sub Ostatni() 'najdi prázdnou buňku ve sloupci "A" a nahraď slovem "Ostatní"
Dim sourceCol As Integer, rowCount As Integer, currentRow As Integer
Dim currentRowValue As String

For i = 0 To Cells(1, Columns.Count).End(xlToLeft).Column

sourceCol = 1 + i
rowCount = Cells(Rows.Count, sourceCol).End(xlUp).Row

For currentRow = rowCount To 1 Step -1

currentRowValue = Cells(currentRow, sourceCol).Value

If IsEmpty(currentRowValue) Or currentRowValue = "" Or Trim(currentRowValue) = "" Then
Cells(currentRow, sourceCol).Value = "Ostatní"
End If

Next
Next
End Sub

Zaslat odpověď >

Jiří497(23.10.2020 10:15)#048567

Jestli to chápu dobře:

Sub dopln()

Dim radek As Integer

For radek = 1 To 10

If Range("A" & radek) = "" And (Range("M" & radek) = 1 Or Range("M" & radek) = 2) Then
Range("A" & radek) = "nákup"
ElseIf Range("A" & radek) = "" And Range("M" & radek) = 3 Then
Range("A" & radek) = "prodej"
End If

Next
End Sub
citovat

Raders486(23.10.2020 11:55)#048568

Perfektní, děkuji.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.