koda za izbran obseg celic

[VHJimmi]

Pozdravljeni...

Poskušam in poskušam, a mi ne uspeva. Prebrskal sem tudi po forumu in nisem zasledil nič, s čimer bi si lahko pomagal.

Primer:
………………………………………………………………………………………………………………………………………………………………………………………………………. stolpec D...……….. stolpec M
pojdi na stolpec (zapisan v celici D2)………………………………………………………………………………………………………………………….. vrstica 2...… M
območje od vrstice (zapisane v celici D3) …………………………………………………………………………………..…………………….…….. vrstica 3.... 15
območje do vrstice (zapisane v celici D4) ……………………………………………………………………………………..…………………………. vrstica 4.... 22
"Izberi to celico (5 vrstica v tem stolpcu, ki je zapisan v celici D2)
nato
kopiraj to izbrano celico (v njej je zapisana formula, ki je v vsakem naslednjem desnem stolpcu drugačna) ………. vrstica 5...………………………... ="fx_1"

izberi območje glede na zgoraj v celici D2 podan stolpec in v celici D3 (od 15) in celici D4 (do 22) določene vrstice
prilepi kopirano formulo v to prej izbrano območje
………………………………………………………………………………………………………………………………………………………………………………………. vrstica 15...……………………….. fx_1
………………………………………………………………………………………………………………………………………………………………………………………. vrstice.......……………………….. fx_1
………………………………………………………………………………………………………………………………………………………………………………………. vrstice.......……………………….. fx_1
………………………………………………………………………………………………………………………………………………………………………………………. vrstica 22...……………………….. fx_1

Hvala in lep pozdrav.
Jimmi

[admin]

Pozdravljeni,

Berem, berem, pa moram priznati, da ne razumem... ne vem kaj želite narediti... Ok, nekaj lahko poskušam:

Koda: Izberi vse

' Pravite torej sledeče:
' pojdi na stolpec (zapisan v celici D2)………………………… vrstica 2...… M	
' območje od vrstice (zapisane v celici D3) ……………… vrstica 3.... 15	
' območje do vrstice (zapisane v celici D4) ……………… vrstica 4.... 22	

    Dim obmocje As String
    obmocje = Range("d2") & Range("d3") & ":" & Range("d2") & Range("d4")

' v vašem primeru bi sedaj v spremenljivki območje pisalo [M15:M22]
' takšno območje preprosto izberete z

    Range(obmocje).Select

' Izberi to celico (5 vrstica v tem stolpcu, ki je zapisan v celici D2)

' od tod dalje pa ne razumem več

[VHJimmi]

Pozdravljeni..

Hvala za Vašo pomoč.
Težko je včasih razumljivo na prvo žogo zapisati vse kar roji po glavi oz. kar želiš storiti.
A sem prišel do rešitve.

To izgleda sedaj takole.

_ _ _ _ _ _ _
Dim obmocje As String
Dim stolpec As String
' območje, ki je določeno z celicami D2, D3, D4 (M15:M22)
obmocje = Range("D2") & Range("D3") & ":" & Range("D2") & Range("D4")

' 5 celica v stolpcu določenim s celico D2, kjer je zapisana formula (M5)
stolpec = Range("D2") & 5
Range(stolpec).Select
' kopiram formulo
Selection.Copy
Range(obmocje).Select
' prilepim formulo v celice območja
ActiveSheet.Paste
' kopiram zapisano v območju in prilepim kot vrednosti
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
_ _ _ _ _
Najlepša hvala še enkrat za Vašo pomoč.
Lep primorski pozdrav
Jimmi

[admin]

Super, samo da ste rešili.