[Oake]

Pomoże mi ktoś przy zdefiniowaniu rangu w pliku? Szukam w pliku komórki z daną wartością i kiedy ja znajduję chce zdefiniować obszar np. od tej komórki do 15 komórek w dół. Mam taki kod:

Set szukanawartosc = sheet1.Find(jakaś tam value)
Set szukanyobszar = Range(tutaj właśnie nie wiem co, Range(tutaj też nie wiem co).offset(15,0))


#vba #excel #pytanie

[intifad]

@Oake:
Dim searchedText As String
Dim myRange As Range
Dim myOffsetRange As Range
searchedText = "szukany tekst"
Set myRange = Sheet1.Cells.Find(searchedText)
Set myOffsetRange = myRange.Offset(15, 0)

[Oake]

@intifad: dzięki, ale mi chodzi o to żeby ten myoffsetrange składał się z tych wszystkich 15 komórek a nie tylko z tej oddalonej o 15 od myrange

[intifad]

@Oake:
Dim searchedText As String
Dim myRange As Range
Dim myOffsetRange As Range
searchedText = "szukany tekst"
Set myRange = Sheet1.Cells.Find(searchedText)
Set myOffsetRange = Sheet1.Range(myRange, myRange.Offset(15))

[Oake]

Chyba działa dzięki jeszcze raz

[DwaNiedzwiedzie]

@Oake: @intifad: Przy przeszukiwaniu arkusza dobrze by było zawęzić obszar poszukiwań, żeby nie przeczesywać 17 mld komórek w wypadku braku dopasowania. Warto też zwrócić uwagę na opcjonalne parametry metody Find, LookAt bywa istotny. Do zmiany wielkości zakresu prostsza będzie metoda Resize (myRange.Resize(15)).