vbamania.pl
login:
hasło:
 
  *Rejestracja *Zapomniane hasło
 Dziś jest piątek, 01 listopada 2024 roku.
Ustaw jako stronę startową Ulubione Napisz
PowrótPowrót do serwisu  RegulaminRegulamin rssRSS

  tytuł wątku:
Wątki dyskusji

Podzanie pozycji wiersza w arkuszu


otwartyotwarty rozpoczął: Blaszka_P postów: 5



napisał: Blaszka_P
postów: 112


umieszczony:
8 listopada 2011
18:06

  
Witam

to jest tylko wycinek kodu, mozna to zrobić tak
i = WorksheetFunction.Match(numer, Worksheets("Spis").Range("B1:B8000), 0)



Pozdrawiam
napisał: Trebor
postów: 1209


umieszczony:
8 listopada 2011
17:59

  
W Twoim przypadku With to tylko ozdobnik
napisał: Blaszka_P
postów: 112


umieszczony:
8 listopada 2011
17:41

  
Witam

Dzięki za pomoc , ale zrobiłem to w ten sposób. Chodziło mi o podanie pozycji wiersza w arkuszu ,który zawiera szukaną wartość "numer"

Sub test()
Dim i As Long
With Sheets("spis")
i = WorksheetFunction.Match(numer, Range("B1:B8000"), 0)

End With
End Sub


Pozdrawiam
Blaszka_P
napisał: admin
postów: 613


umieszczony:
7 listopada 2011
19:20

  
Witam,

Pierwszy post po awarii serwisu...

Nie wiem czy chodzi Ci dokładnie o to, ale:

Range("A1").Select
    ActiveCell.FormulaR1C1 = "=MATCH(RC[31],[SPIS]Arkusz1!RC[1]:R[7009]C[1],0)"



pozdrawiam
admin

Cytat:
Witam

Czy jest możliwość zapisu takiej formuły w kodzie VBA
=PODAJ.POZYCJĘ(AF1;SPIS!B1:B7010;0), AF1= szukana wartość

Pozdrawiam

Blaszka_P
napisał: Blaszka_P
postów: 112


umieszczony:
7 listopada 2011
17:48

  
Witam

Czy jest możliwość zapisu takiej formuły w kodzie VBA
=PODAJ.POZYCJĘ(AF1;SPIS!B1:B7010;0), AF1= szukana wartość

Pozdrawiam

Blaszka_P


<-wstecz  1  dalej->
wszystkich stron: 1


Sortuj posty: z