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

1377

  1. toivottavasti ei tuu ähkyolo ;-)

    Sub Aikaerot()
    Dim vika As Long
    Dim solu As Range
    Dim Aikaero As Long
    Dim taulukot
    Dim i As Long
    On Error Resume Next
    Sheets("Ohi").Range("N1:N4") = ""
    taulukot = Array("Taul1", "Taul2", "Taul3")
    For i = LBound(taulukot) To UBound(taulukot)
    vika = Sheets(taulukot(i)).Range("G65536").End(xlUp).Row
    For Each solu In Sheets(taulukot(i)).Range("G1:G" & vika)
    Aikaero = CDbl(solu.Offset(0, 3)) - CDbl(solu)
    Select Case Aikaero
    Case 1
    Range("N1") = Sheets("Ohi").Range("N1") + 1
    Case 2
    Range("N2") = Sheets("Ohi").Range("N2") + 1
    Case 3
    Range("N3") = Sheets("Ohi").Range("N3") + 1
    Case Is > 3
    Range("N4") = Sheets("Ohi").Range("N4") + 1
    End Select
    Next
    Next
    End Sub
    Keep EXCELing
    @Kunde
  2. tarkoititko todella , että ohi 1pv , 1-2 pv, 2-3 pv ja yli 4 pv?
    vaiko 1,2,3 yli 4 pv?

    no mai pen rai tossa sulle molemmat versiot
    eli tulostukset soluihin N1:N4

    moduuliin...
    Sub Aikaerot()
    Dim vika As Long
    Dim solu As Range
    Dim Aikaero As Long
    On Error Resume Next
    Range("N1:N4") = ""
    vika = Range("G65536").End(xlUp).Row
    For Each solu In Range("G1:G" & vika)
    Aikaero = CDbl(solu.Offset(0, 3)) - CDbl(solu)
    Select Case Aikaero
    Case 1
    Range("N1") = Range("N1") + 1
    Case 2
    Range("N2") = Range("N2") + 1
    Case 3
    Range("N3") = Range("N3") + 1
    Case Is > 3
    Range("N4") = Range("N4") + 1
    End Select
    Next
    End Sub

    Sub Aikaerot2()
    Dim vika As Long
    Dim solu As Range
    Dim Aikaero As Long
    On Error Resume Next
    Range("N1:N4") = ""
    vika = Range("G65536").End(xlUp).Row
    For Each solu In Range("G1:G" & vika)
    Aikaero = CDbl(solu.Offset(0, 3)) - CDbl(solu)
    Select Case Aikaero
    Case 1
    Range("N1") = Range("N1") + 1
    Case 2
    Range("N1") = Range("N1") + 1
    Range("N2") = Range("N2") + 1
    Case 3
    Range("N2") = Range("N2") + 1
    Range("N3") = Range("N3") + 1
    Case Is > 3
    Range("N4") = Range("N4") + 1
    End Select
    Next
    End Sub

    Keep EXCELing
    @Kunde
  3. Kyllä EXCEL on todella hyvä ohjelma.

    Itse käyttelen sitä eri CAD/CAM ohjelmien kanssa laskentaan ja tekstinkäsittelyynkin se on parempi kuin fu**** WORD (koska Exceliin voi hakea Word objektikirjaston ja käyttää lähes kaikkkea mitä worsisäkin voi tehdä) ja asettelut ihan eri luokkaa kuin WORDissä.
    Access ja Excel runnaa loistavasti.
    Ainut mitä en ole lokeilluton Officepaketissa on Powerpoint. En tiedä oikein mihin sitä nyt tarvitsisin kun kaikkea voin Excelillä tehdä.

    Kurisioottina mainittakoon, että suoritin ko. aikuiskoulutuskeskuksessa ATK ammattitutkinnon huvikseni, mutta hylsy tuli kun ei ollut näyttöä, että osaan tehdä joukkokirjeitä. Tosin ihmettelin näitten muitten eri ohjelmien käyttöä rajapintojen kautta kriteeriä, mitä kukaan muu kurssitoveri ei pystynyt osoittamaan ja silti heidän tutkintonsa meni läpi ....

    Silloin tein 2 eri firmaan sovellutukset tilauksesta työmääräimiin/lähetteisiin ja siirrot laskutusohjelmiin ja tein hommat Excelillä. Koodia oli pari mapillista...
    No ei ollut näyttöä joukkokirjeistä tosiaankaa!
    Oli näytöt hiukan kovenpaa luokka kuin joukkokirjeen teko!
    Sitten ja uusinnassa esitin joukkokirjeet 5 eri tavalla ja edelleen ilman WORDIA ja menihän se läpi. Tentattiin, miksi en käytä WORDIA ja kerroin, mitä vi**** mä sillä teen sotkemassa asioita kun ne voi hoitaa paljon fiksummin muilla ohjelmilla ja malliksi esitin sitten vielä WORDin oikoluvun EXCELissä - hehehe

    mutta kivahan sitä oli pompottaa mua...
    terveisiä vaan JMS:lle
  4. 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
  5. 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
  6. 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
  7. 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
  8. mitkä ovat EXCELin omia virheilmoituksia jos ei koodisi niitä kerran tunnista?
    kyllä ton pitäisi auttaa
    "application.displayalerts = false"
  9. 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
  10. 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
  11. 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
  12. 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
  13. 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....
  14. en luule vaan tiedän, että onnistuu...
    laita mallitiedostoa ja mitä pitää tehdä niin koodataan...
  15. koodaamalla voi tehdä melkein mitä vaan jos vain osaa....
  16. "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
  17. samaa kysytään nyt jo kolmatta kertaa..
    kyllä se 1 kerta pitäisi riittää
    täppä kohtaan tietoalueella otsikkorivi ja se on siinä
  18. nauhoita makro uudestaan ja muista täppä kohtaan tietoalueella on otsikkorivi...

    Keep EXCELing
    @Kunde
  19. ei todellakaan...
    täppä oikeassa kohtaa eli tietoalueella on otsikkorivi kun lajitellaan...
  20. 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
    21. 34 / 69
TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt