kunde

Vapaa kuvaus

Isaan Rules WFF CCC If you walked away smiling-then for you the price was right Keep Exceling Suosikkibändit/artistit: Queen, Rammstein, genesis, Bruce Bringsteen, Kino, Mandref Mann Earth band Who Lempikirjat: ohjelmointi... Suosikkipalstat Suomi24 Keskusteluissa: EXCEL, Kivitalot, EPS En pidä: pakkanen ja loskakelit Ruoka & juoma: loimulohi ja valkkari Linkit: http://www.kundepuu.com, Khorat Koulutus: --- Ammatti: Tiede/teknologia Työskentelen: freelancer Ase tai siviilipalvelus: yliluutnantti Siviilisääty: Varattu Lapset: --- Hakusanat: Thaimaa, korat, Excel, VBA, ACAD, CNC, Polyurea, EPS, MgO elementti

Aloituksia

7

Kommenttia

1374

  • Uusimmat aloitukset
  • Suosituimmat aloitukset
  • Uusimmat kommentit
  1. 1.
    65536 riviä ennen versiota 2007 taulukossa ja olikos se 1048576 riviä versiosta 2007 ettiäpäin....
    joten makro lähtee vikalta riviltä ylöspäin tsekkaamaan ekaa tyhjää... toki voi mennä alaspäin vaemmalle tia oikealle yhtähyvin...

    2.
    päiväystä ei voi ihan noin tehdä, koska se vaatii uudellenlaskennan taulukossa ja vaatisi tietenkin päiväyksen kirjoittamisen(solusn sisältö pitää muuttua).
    Mutta valinnan muutostapahtumalla se voidaan tehdä, Tosin silloin päiväys tulee jo solun aktivoituessa ja ei vaadi edes enterin painallusta....

    ko. taulukon moduuliin...
    nyt solu A1, jos tarttee lisää soluja niin esim. lisäykset tyyliin Intersect(Range("A1"),Range("K1;"), Target)


    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Range("A1"), Target) Is Nothing Then
    Target = Date
    End If
    End Sub


    3.
    reilut 10 vuotta sitten pidin muutaman ohjelmointi, CAD/CAM ja tietotekniikkakurssin. Nykyään kun asustelen Thaimaassa niin ei ole oikein mahdollisuuksia pitää kursseja. Toki jos kiinnostusta olisi niin kuukauden tehokurssin voisi duunata...
    aikanaan ajattelin tehdä onlinekurssia, mutta aikapula oli rajoitteena ja erään aikuiskoulutuksen nulja suhtautuminen asiaan, Toki jos useammalla olisi tarvetta ja maksuhalukkuutta kurssista voisin semmosen onlinenäkin järjestääkin. Nykyään tosi hyviä opetussovellutksia olisi käytössä sekä testejä
    Taisin olla 10 v sitten aikaani edellä...
    nykyään vain ylläpidän edes hiukan taitojani vastaamalla foorumeille ;-)

    Keep EXCELing
    @Kunde
  2. lueppas mun vastaukset noista
    eli luo nimi ja tsekkaa mitä vasemmalla ylhäälle nimiruutuun on olmestynyt nimiksi...

    http://keskustelu.suomi24.fi/node/9733832#comment-48578140
    http://keskustelu.suomi24.fi/node/3808267#comment-19970135
    http://keskustelu.suomi24.fi/node/3110262#comment-16074210
    http://keskustelu.suomi24.fi/node/1230642#comment-5820834
  3. Sub Transponoi()
    Dim vika As Long
    Dim vika2 As Long
    Dim vika3 As Long
    Dim solu As Range
    On Error Resume Next
    Application.ScreenUpdating = False
    Worksheets("DP2").Range("F:F") = ""
    vika = Range("DP2!A65536").End(xlUp).Row
    vika2 = Range("DP2!D65536").End(xlUp).Row
    If vika < vika2 Then
    vika = vika2
    End If
    For Each solu In Range("A3:A" & vika)
    solu.Copy
    vika3 = Range("DP2!F65536").End(xlUp).Row
    If vika3 = 1 Then vika3 = 2
    Range("DP2!F" & vika3).Offset(1, 0).PasteSpecial (xlPasteValues)
    If Not solu.Offset(0, 3).Text = "#N/A" Then
    solu.Offset(0, 3).Copy
    vika3 = Range("DP2!F65536").End(xlUp).Row
    Range("DP2!F" & vika3).Offset(1, 0).PasteSpecial (xlPasteValues)
    End If
    Next
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    End Sub
  4. Sub koe2()
    Range("D21") = Now()
    Sheets("päivämäärä").Range("A51:C51").Copy
    Sheets("arkisto").Range("C5").PasteSpecial Paste:=xlPasteValues
    Sheets("arkisto").Rows("4:4").Insert
    Sheets("päivämäärä").Activate
    Range("A1").Select
    End Sub
  5. mitkä ovat EXCELin omia virheilmoituksia jos ei koodisi niitä kerran tunnista?
    kyllä ton pitäisi auttaa
    "application.displayalerts = false"
  6. mikäs tossa nyt mätti???
    äkkiseltään näytäs ihan Ok

    tässä sama kuitenkin siistittynä
    oletin, että aktiiviseen taulukkoon tulee päiväys soluun D21

    Sub koe2()
    Range("D21") = Now()
    Sheets("päivämäärä").Range("A51:C51").Copy Sheets("arkisto").Range("C5")
    Sheets("arkisto").Rows("4:4").Insert
    Sheets("päivämäärä").Activate
    Range("A1").Select
    End Sub

    Keep EXCELing
    @Kunde
  7. lisää nappi ohjausobjekteista ja lisää ko.taulukon moduulissa siihen koodi(oletus CommandButton1

    Private Sub CommandButton1_Click()
    Range("A10:K15").Copy Sheets(Range("A1").Text).Range("A65536").End(xlUp).Offset(1, 0)
    End Sub
  8. ihan perusjuttu toi olikin...
    vastaavia etsi ja siirrä koodipäykiä löytyy kymmenittäin ko. foorumilla mun tekemänä...
    pannaan nyt loopilla (etsi komento parempi jos paljon dataa). Haulla hae etsijasiirrä ja haejasiirrä kirjoittajana kunde löytyy sitten tehokkaampaa versiota

    moduuliin...

    eli etsii ja kuittaa sarakkeessa C olevat päiväyksett solussa G1 olevan päivämäärän mukaisesti tehdyksi. Voit laittaa soluun kaavaksi esim =TÄMÄ.PÄIVÄ()

    Sub Päivitä()
    Dim vika As Long
    Dim solu As Range
    On Error Resume Next
    vika = Range("C65536").End(xlUp).Row
    For Each solu In Range("C1:C" & vika)
    If CDate(solu) = CDate(Range("G1")) Then
    solu.Offset(0, 1) = "Suoritettu"
    End If
    Next
    End Sub
  9. ei todellakaan, vaan jos oot tehnyt napin tai käytät jotakin tapahtumaa niin siihen sitten liität koodinpätkän....

    oletuksenas kopioi nyt laskupohjasta A10:K15 alueen laskupohjassa H30 olevaan asiakkaan nimiseen taulukkoon esim. solusta A13 alaspäin, jos solussa A12 on tietoa jne
  10. ihan oikein toi toimii...
    eli posituu jos kaikki OK ja jos virhe niin msgbox tulee näkyviin ja koodi loppuu

    sulla taitaa olla kirjoitusvirhe muussa koodinpätkässä mitä et liittänyt....
  11. en luule vaan tiedän, että onnistuu...
    laita mallitiedostoa ja mitä pitää tehdä niin koodataan...
  12. koodaamalla voi tehdä melkein mitä vaan jos vain osaa....
  13. "Eli lyhyesti ja ytimekkäästi: Kuinka saan koottua kaksi saraketta yhteen sarakkeeseen ilman makroja?"

    ET MITENKÄÄN.ilman makroa, mutta makrolla piece of cake...

    kopioitavan taulukon moduuliin ja muuta kohdetaulukon nimi sopivaksi

    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cika As Long
    vika = Range("A65536").End(xlUp).Row
    Worksheets("Taul2").Range("C:C") = ""
    Range("A1:A" & vika).Copy Worksheets("Taul2").Range("C65536").End(xlUp).Offset(1, 0)
    vika = Range("B65536").End(xlUp).Row
    Range("B1:B" & vika).Copy Worksheets("Taul2").Range("C65536").End(xlUp).Offset(1, 0)
    Worksheets("Taul2").Range("C1").EntireRow.Delete
    End Sub

    Keep EXCELing
    @Kunde
  14. samaa kysytään nyt jo kolmatta kertaa..
    kyllä se 1 kerta pitäisi riittää
    täppä kohtaan tietoalueella otsikkorivi ja se on siinä
  15. nauhoita makro uudestaan ja muista täppä kohtaan tietoalueella on otsikkorivi...

    Keep EXCELing
    @Kunde
  16. ei todellakaan...
    täppä oikeassa kohtaa eli tietoalueella on otsikkorivi kun lajitellaan...
  17. työkirja on se excel tiedosto, jonka EXCEL sovellutus avaa ja sen sisällä on taulukoita.
    siis sun tapauksessa sitten XXX taulukon moduuliin...

    Private Sub Worksheet_Activate()
    MsgBox "Tähän sitten se sun koodisi ilman Subeja"
    End Sub
  18. laajenna valinta kaikille lajiteltaville sarakkeille ei vain sarakkeelle E...
  19. tarkoititko kun työkirja avataan?

    koodi moduuliin...

    Sub Auto_Open()
    MsgBox "Tähän sitten se sun koodisi"
    End Sub

    vaiko kun taulukko aktivoidaan?

    koodi ko. taulukon moduuliin...

    Private Sub Worksheet_Activate()
    MsgBox "Tähän sitten se sun koodisi"
    End Sub

    nää nyt noin ylimalkaseen :-)

    Keep EXCELing
    @Kunde
  20. missäs nää värit on?
    laita selvennystä niin rukataan...
    21. 34 / 69
TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt