< návrat zpět

MS Excel


Téma: Vyhledávání ve VBA rss

Zaslal/a 28.7.2020 3:45

FantasykZdravím mistři,
můžete mi někdo poradit s tímto kódem?
Dim Compld As Range
Set Compld = Range("C:N").find(What:=Range("A1").Value, LookIn:=xlValues, lookat:=xlWhole)
Range("B1").Value = Compld.Offset(, -9).Value


akurát potřebuji jak je Compld.Offset(, -9) posouvat vždy na sloupec C
Jelikož někdy to je -9 a někdy -5 atd..
Nevíte někdo ?

děkuji

Zaslat odpověď >

#047480
avatar
A co zkusit: Range("B1").Value = Cells.(Compld.Row, 3).Valuecitovat
#047486
elninoslov
@Jiří497: preklep - bodka 1
@Fantasyk: A čo ak nenájde?
Sub pokus()
Dim Compld As Range
Set Compld = Range("C:N").Find(What:=Range("A1").Value, LookIn:=xlValues, lookat:=xlWhole)
If Compld Is Nothing Then
Range("B1").ClearContents
MsgBox "Nenalezeno !", vbExclamation
Exit Sub
End If
Range("B1").Value = Cells(Compld.Row, 3).Value
'...
End Sub
citovat
#047492
Fantasyk

elninoslov napsal/a:

@Jiří497: preklep - bodka
@Fantasyk: A čo ak nenájde?
Sub pokus()
Dim Compld As Range
Set Compld = Range("C:N").Find(What:=Range("A1").Value, LookIn:=xlValues, lookat:=xlWhole)
If Compld Is Nothing Then
Range("B1").ClearContents
MsgBox "Nenalezeno !", vbExclamation
Exit Sub
End If
Range("B1").Value = Cells(Compld.Row, 3).Value
'...
End Sub


Dekuji, jojo kdyz nenajde jsem chtel jeste dopsat, akurat jsem furt resil, aby to naslo 5 , ale dekuji 1citovat

Uživatelské menu

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

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09