EDELLINEN SOLU+1

Vastaus Kunde:
kaavan täyttö onnistuu seuraavasti
esim. kaavat soluihin D18:D50...

Range("D18").Formula = "=D17 1"
Range("D18").AutoFill Range("D18:D50")

Kysymykselläni tarkoitin sitä että jos esim. seuraava tyhjä solu on D25, niin kaavan täyttö tapahtuisi soluun D24 saakka. Eli kaavan täyttö päättyisi seuraavaa tyhjää solua edeltävään soluun.

edelliseen kirjoitti:

Vastaus Kunde:
kaavan täyttö onnistuu seuraavasti
esim. kaavat soluihin D18:D50...

Range("D18").Formula = "=D17 1"
Range("D18").AutoFill Range("D18:D50")

Kysymykselläni tarkoitin sitä että jos esim. seuraava tyhjä solu on D25, niin kaavan täyttö tapahtuisi soluun D24 saakka. Eli kaavan täyttö päättyisi seuraavaa tyhjää solua edeltävään soluun.

moduuliin..
Sub Täytä()
Dim vika As Integer
vika = Range("D65536").End(xlUp).Row - 1
Range("D18").Formula = "=D17 1"
Range("D18").AutoFill Range("D18:D" & vika)
End Sub

kunde kirjoitti:

moduuliin..
Sub Täytä()
Dim vika As Integer
vika = Range("D65536").End(xlUp).Row - 1
Range("D18").Formula = "=D17 1"
Range("D18").AutoFill Range("D18:D" & vika)
End Sub

Kun tyhmyys tiivistyy, niin joutuu pyytämään vielä apua!
Eli ymmärsin varmaan ohjeesi väärin.
Tein makron seuraavalla tavalla, mutta pysähtyy tuohon kolmannen pilkun kohdalle:

Sub Makro1()
'
' Makro1 Makro
'

'
Sub Täytä()
Dim vika As Integer
vika = Range("D65536").End(xlUp).Row - 1
Range("D18").Formula = "=D17 1"
Range("D18").AutoFill Range("D18:D" & vika)
End Sub

vielä! kirjoitti:

Kun tyhmyys tiivistyy, niin joutuu pyytämään vielä apua!
Eli ymmärsin varmaan ohjeesi väärin.
Tein makron seuraavalla tavalla, mutta pysähtyy tuohon kolmannen pilkun kohdalle:

Sub Makro1()
'
' Makro1 Makro
'

'
Sub Täytä()
Dim vika As Integer
vika = Range("D65536").End(xlUp).Row - 1
Range("D18").Formula = "=D17 1"
Range("D18").AutoFill Range("D18:D" & vika)
End Sub

Sub Makro1()
'
' Makro1 Makro
'

'
Dim vika As Integer
vika = Range("D65536").End(xlUp).Row - 1
Range("D18").Formula = "=D17 1"
Range("D18").AutoFill Range("D18:D" & vika)
End Sub

kunde kirjoitti:

Sub Makro1()
'
' Makro1 Makro
'

'
Dim vika As Integer
vika = Range("D65536").End(xlUp).Row - 1
Range("D18").Formula = "=D17 1"
Range("D18").AutoFill Range("D18:D" & vika)
End Sub

Nyt homma toimii muuten, mutta kaavan täyttö pysätyy viimeistä edelliseen soluun. Eli kaavan täyttö pitäisi olottua "seuraava tyhjä solu-1.
Olisin tietysti voinut sanoa tämän kysymystä esittäessänikin, mutta järki tulee vähän jälkijunassa.

kaksi kirjoitti:

Nyt homma toimii muuten, mutta kaavan täyttö pysätyy viimeistä edelliseen soluun. Eli kaavan täyttö pitäisi olottua "seuraava tyhjä solu-1.
Olisin tietysti voinut sanoa tämän kysymystä esittäessänikin, mutta järki tulee vähän jälkijunassa.

Sub Makro1()
'
' Makro1 Makro
'

'
Dim vika As Integer
vika = Range("D65536").End(xlUp).Row
Range("D18").Formula = "=D17 1"
Range("D18").AutoFill Range("D18:D" & vika)
End Sub

kunde kirjoitti:

Sub Makro1()
'
' Makro1 Makro
'

'
Dim vika As Integer
vika = Range("D65536").End(xlUp).Row
Range("D18").Formula = "=D17 1"
Range("D18").AutoFill Range("D18:D" & vika)
End Sub

Kiitos "Kunde"!
Nyt homma toimii muuten paisi, jos seuravan tyhjän solun jälkeen sattuukin olemaan sellaisia soluja joiden arvo on enemmän kuin nolla, niin kaavan täyttö jatkuukin sinne asti. Vimpan päälle kaavan täytön pitäisi päättyä ensimmäisen pötkyn loppuun.

yksi korjaus kirjoitti:

Kiitos "Kunde"!
Nyt homma toimii muuten paisi, jos seuravan tyhjän solun jälkeen sattuukin olemaan sellaisia soluja joiden arvo on enemmän kuin nolla, niin kaavan täyttö jatkuukin sinne asti. Vimpan päälle kaavan täytön pitäisi päättyä ensimmäisen pötkyn loppuun.

muuta rivi
vika = Range("D18").End(xlDown).Row-1

... kirjoitti:

muuta rivi
vika = Range("D18").End(xlDown).Row-1

Nyt toimii. Poistin vielä rivin lopusta sen -1