KOPIOI

EI TYHJÄT

HEI, VOISIKO JOKU NEUVOA, MILLAISELLA MAKROLLA VOISIN KOPIOIDA ESIM. RIVIT 60-80, PAITSI EI TYHJIÄ. TOISIN SANOEN RIVIT 60-80 JOISSA ON JOTAIN.

1

246

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      moduuliin...

      Sub KopioiEiTyhjätrivit()
      Dim Kopioitavat As Range
      On Error Resume Next
      Application.ScreenUpdating = False
      Sheets("Sheet1").Select
      For Each solu In Range("A10:A20")
      If Application.CountA(solu.EntireRow) > 0 Then
      If Kopioitavat Is Nothing Then
      Set Kopioitavat = solu.EntireRow
      Else
      Set Kopioitavat = Union(Kopioitavat, solu.EntireRow)
      End If
      End If
      Next
      Sheets("Sheet2").Rows("1:21").Clear
      Kopioitavat.Copy Sheets("Sheet2").Range("A1")
      Application.ScreenUpdating = True
      End Sub

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Moikka rakas

      Oon miettinyt meidän välistä yhteyttä viime aikoina. En ihan osaa pukea sanoiksi, mitä kaikkea tunnen, mutta halusin vaa
      Ikävä
      65
      17053

    2. Mitä tapahtunut

      Poliiseja monta autoa+panssariauto Porista kpäähän päin tänään klo n.20 kuka hurjistunut ?
      Kankaanpää
      41
      4794

    3. HS: Kuka vielä uskaltaa mennä sairaalan ensiapuun?

      https://www.hs.fi/mielipide/art-2000011212025.html Tässä on hyvin ajankohtainen mielipidekirjoitus koskien Malmin sairaa
      Maailman menoa
      300
      2718

    4. Gallup: kaivattusi syntymävuosi

      Minä vuonna kaipaamasi henkilö on syntynyt?
      Ikävä
      144
      2006

    5. Ökyrikas Kurkilahti mussuttaa veroistaan

      Pakeni aikoinaan veroja Portugaliin mutta joutui palaamaan takaisin kun Suomi teki verotussopimuksen Portugalin kanssa.
      Maailman menoa
      132
      1597

    6. Yhdysvalloissa työllisyys paranee, Suomessa työttömyys kasvaa, missä vika?

      Miten tämä on mahdollista että 177 000 uutta työllistä tuli USAssa yhdessä kuukaudessa, vaikka Trump on ruorissa? Orpon
      Maailman menoa
      397
      1530

    7. Missäpäin,,,

      Lapuaa tapettu ihminen viime yönä ? Hurjaa touhua nykymeno täällä...
      Lapua
      17
      1497

    8. Lakea konkurssiin. Asukkaat menettävät asuntonsa

      Kuntarahoitus on tänään jättänyt konkurssihakemuksen lakean kaikista kiinteistö osakeyhtiöistä. Kassa on tyhjä, kaikki
      Seinäjoki
      22
      1306

    9. Jos tämän vaan sulkee ja avaa 5 vuoden päästä

      Täällä on luultavasti edelleen näitä ihan samoja juttuja. On kuin kauniit ja rohkeat samat jutut junnaa. Heips. 👋🏻 E
      Ikävä
      10
      1303

    10. mahdollista, että olet ollut iltavuorossa

      Ja kotiin päästyäsi tulit palstalle etsimään merkkiä minusta, jos kaipaat yhtään minua niin kuin minä sinua Ei mennyt k
      Ikävä
      11
      1203
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt