MS Excel

Téma: VBA funkce if

Zaslal/a vary 5.5.2015 12:57

nevíte někdo co stim mam delat? proc mi to nejede?

If Sheets("blabla").Cells(1, 2).Value Like Sheets("pepe").Range("P15:P22").Value Then

pise mi to type mismatch

blbne mi tam to range protože když tam bylo cells tak to krasne fungovalo potrebuju ale rozsah :-) díky

Zaslat odpověď >

eLCHa(5.5.2015 14:17)#024782

Není třeba zakládat nové vlákno, když se v podstatě jedná o pokračování minulého dotazu

jistě, že to píše type mismatch, protože srovnáváte jablka (hodnotu) a hrušky (pole).
ovšem rada bude těžká, protože nevíme co děláte - vypadá to na cyklus + Like nebo na Application.WorksheetFunction.Match - v Match lze použít zástupných znaků.citovat

vary(5.5.2015 14:26)#024784

ano jedna se o cyklus
For a = StartAutomatPolozka To KonecAutomatPolozka
if Sheets("blabla").Cells(1, 2).Value Like Sheets("pepe").Range("PStartAutomatPolozka:PKonecAutomatPolozka").Value Then

takhle by to bylo uplně nejlepší to však jak ste psal fungovat nemůže nevite prosim co stim?citovat

eLCHa(6.5.2015 7:19)#024787

??With Sheets("pepe").Range("P15:P22")
For i = 1 to .Cells.Count
If Sheets("blabla").Cells(1, 2).Value Like .Cells(i).Value Then
'kód
End If
Next i
End With 'Sheets("pepe").Range("P15:P22")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.