< návrat zpět

MS Excel

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

Zaslal/a Fantasyk 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ěď >
Jiří497(28.7.2020 9:14)#047480
avatar
A co zkusit: Range("B1").Value = Cells.(Compld.Row, 3).Valuecitovat
elninoslov(28.7.2020 16:24)#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 Subcitovat
Fantasyk(28.7.2020 19:44)#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

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.

On-line nástroje