HEI, MILLAISELLA MAKROLLA VOISIN KOPIOIDA KAAVAA ESIM, "D17 1", SOLUSTA D18 ALKAEN AINA SEURAVAAN SOLUUN, KUNNES TULEE VASTAAN VIIMEINEN SOLU JOSSA ARVO SUUREMPI KUIN 1.
EDELLINEN SOLU+1
10
579
Vastaukset
vaikea vastata kun kysymys niin yöimalkainen, mutta kaavan täyttö onnistuu seuraavasti
esim. kaavat soluihin D18:D50...
Range("D18").Formula = "=D17 1"
Range("D18").AutoFill Range("D18:D50")- edelliseen
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- vielä!
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 SubKun 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 SubSub 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- kaksi
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 SubNyt 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- yksi korjaus
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 SubKiitos "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 - "Kunde"
... kirjoitti:
muuta rivi
vika = Range("D18").End(xlDown).Row-1Nyt toimii. Poistin vielä rivin lopusta sen -1
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Suureksi onneksesi on myönnettävä
Että olen nyt sitten mennyt rakastumaan sinuun. Ei tässä mitään, olen kärsivällinen ❤️932129Perusmuotoiset TV-lähetykset loppu
Nyt sanoo useiden HD-muotoistenkin kanavien kohdalla äly-TV, ettei kanava ole käytössä, haluatko poistaa sen? Kanavia1671557YLE Äänekosken kaupunginjohtaja saa ankaraa arvostelua
Kaupungin johtaja saa ankaraa kritiikkiä äkkiväärästä henkilöstöjohtamisestaan. Uusin häirintäilmoitus päivätty 15 kesä741339Euroopan lämpöennätys, 48,8, astetta, on mitattu Italian Sisiliassa
Joko hitaampikin ymmärtää. Se on aivan liikaa. Ilmastonmuutos on totta Euroopassakin.2401237- 731190
Hyvin. Ikävää nainen,
Että vainoat ja stalkkaat miestäni.onko tarkoituksesi ehkä saada meidät eroamaan?no,siinä et tule onnistumaan881106Martina lähdössä Ibizalle
Eikä Eskokaan tiennyt matkasta. Nyt ollaan jännän äärellä.1511051Asiakas iski kaupassa varastelua tehneen kanveesiin.
https://www.iltalehti.fi/kotimaa/a/33a85463-e4d5-45ed-8014-db51fe8079ec Oikein. Näin sitä pitää. Kyllä kaupoissa valtava2531016Katsoin mies itseäni rehellisesti peiliin
Ja pakko on myöntää, että rupsahtanut olen 😆. Niin se ikä saavuttaa meidät kaikki.51936Uskomaton tekninen vaaliliitto poimii rusinoita pullasta
Korni näytösesitelmä menossa kaupunginvaltuustossa. Juhlia ei ole kokouksista tiedossa muilla, kuin monipuolue paikalli88901