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

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)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse