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. ja miten syötetään hakuehdot?
  2. miten noi arvot on taulukossa?
  3. en kyllä nyt keksi mitään syytä miksi makro toimii eritavoin eripaikasta...
    koodin lopussa sulla on
    Application.ScreenUpdating = False
    ehkäpä se pitäisi olla
    Application.ScreenUpdating = True
    mutta ei se auta tohon siirtymiseen mun mielestä.Seuraava ohje ainaskin estää taulukon liikkumisen...

    klikkaa kaaviota hiren oikealla ja avautuvasta valikosta klikkaa sitä alinta muotoile kaavio aluetta.
    Sitten avautuvasta valikosta klikkaat vasemmalta ominaisuudet ja edelleen aukeavasta valitse ylhäältä objektin apaikan vaihtoehdoista se alin eli älä siirrä ja muuta kokoa solujen mukaan.
    En tiedä mten noi on kirjoitettu suomiversiossa, mutta jotain sinne päin kuiteskin...
    .
    taai lisää koodiin...

    ActiveSheet.ChartObjects("KAAVION NIMI").Placement = xlFreeFloating

    Auttoiko?

    Keep EXCELing
    @Kunde
  4. tietolomake ..
    oli itelläkin hukassa versiossa 2010, mistä sen napin löytää (koodilla mä yleensä....)

    http://www.addintools.com/documents/excel/where-is-data-form/where-is-data-form.html

    Keep EXCEling
    @Kunde
  5. voitko liittää sen poistokoodin tänne?
  6. ei mennyt jakeluun...
    eli jos suoritat makron esim. taul1 ollessa aktiivinen ja jossa kaavio niin
    1. kaavio siirtyy
    2. kaavio ei siirry
    jos esim. taul 2 aktiivisena ja suoritat makron ja aktivoit sitten taulukon niin
    3. kaavio siirtyy
    4. kaavio ei siirry
    mikä noista toteutuu?

    Leep EXCeling
    @Kunde
  7. Eikös liitä määräten komennossa ole eri vaihtoehtoja, joten valitse mieleisesi (EXCEL2010)
    Siis kopioi alue Excelissä ja liitä määräten ja sieltä sopivin vaihtoehto

    Keep EXCELing
    @Kunde
  8. hiukkasen epä,ääräinen toi selostus, mutta tossa idea miten homma hoituu ja helppohan sitä on fiksata mieleisekseen

    Sub Lajittele()
    Dim a As Variant
    Dim i As Integer
    On Error Resume Next
    If ActiveCell = "" Then Exit Sub
    a = Split(ActiveCell, ",")
    ActiveCell.EntireRow = ""
    For i = 0 To UBound(a)
    Cells(ActiveCell.Row, Val(a(i))) = Val(a(i))
    Next
    End Sub



    Keep EXCELing
    @Kunde
  9. For i = Range("B2:B55").Cells.Count To 1 Step -1
    If Len(Range("B2:B55").Cells(i)) = 0 Then Range("B2:B55").Cells(i).EntireRow.Delete
    Next i

    Keep EXCELing
    @Kunde
  10. oikea ratkaisu...
    tossa nauhoittimen makro siistittynä

    Range("B2:B55").SpecialCells(xlCellTypeBlanks).Delete


    Keep Excel
    @Kunde
  11. tosi haasteellinen ;-)

    ko taulukon moduuliin...
    tsekkaa nyt solua B5 ja sen arvoa 1, muuta solu ja arvot sopivaksi
    koodissa hipsattuna myös rivin yläpuolelle lisäys sekä sarakkeiden lisäys vasemmalle ja oikealle.. Hipsuja muuttelemalla toimii siis joka suuntaan

    Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Virhe
    Application.EnableEvents = False
    If Not Intersect(Target, Range("B5")) Is Nothing Then
    If Target = 1 Then
    'lisää rivin yläpuolelle
    ' Target.EntireRow.Insert
    ' 'lisää rivin alapuolelle
    Target.Offset(1).EntireRow.Insert
    'lisää sarakkeen vasemmalle
    ' Target.EntireColumn.Insert
    ' 'lisää sarakkeen oikealle
    ' Target.EntireColumn.Offset(0, 1).Insert

    End If
    End If
    Virhe:
    Application.EnableEvents = True
    End Sub


    Keep EXCELing
    @Kunde
  12. Sub vikaposluku()
    Range("C4:C" & Range("D4").End(xlDown).Row) = ""
    For i = 4 To Range("d4").End(xlDown).Row
    Range("d" & i).End(xlToRight).Select
    Do Until ActiveCell >= 0
    ActiveCell.Offset(0, -1).Select
    Loop
    Range("c" & i).Value = ActiveCell
    Next
    End Sub


    Keep EXCELing
    @Kunde
  13. Sub vikaposluku()
    Dim Apu As Boolean
    Apu = False
    Range("C4:C" & Range("D4").End(xlDown).Row) = ""
    For i = 4 To Range("d4").End(xlDown).Row
    Range("d" & i).End(xlToRight).Select

    Do Until (ActiveCell >= 0 And Apu)
    If ActiveCell >= 0 Then
    Apu = True
    End If
    ActiveCell.Offset(0, -1).Select
    Loop
    Range("c" & i).Value = ActiveCell
    Next

    End Sub

    Keep EXCELing
    @Kunde
  14. "- VBA:n käyttö ei auta"
    taatusti auttaa, mutta en ymmärrä mihin sitä nyt edes tarvittaisiin. Toki automatisoimaan rutiinia, mutta Excelissähän on tekstitiedostoille tuontivelho, jossa voit määritellä tarpeelliset asiat ja voit nauhoittaa sen ja sitten hiukan "siivoilla" ja käytössäsi on maksro sitten.
    Itse testasin tekemällä tiedoston tyyliin

    321E100, 321E101, 321E102
    321E103, 321E104, 321E105

    aja ei ongelmia


    Keep EXCELing
    @Kunde
  15. Onnistuu VBA:lla
    noilla antamallasi tiedoilla mission impossible, vaatii tarkemmat tiedot mistä solusta mihin soluun ja taulukoiden nimet yms...


    Keep EXCELing
    @Kunde
  16. 1. Excel tiedosto nettin ja se lasataan omalle koneelle. Koneella sit tietojen täyttö ja napista emailaa tiedot sulle tms.
    2. Ilman koodia edellinen ja lähetetään emaililla ja sit luetaan tiedot rekisteriin
    3. Ladattava ja täytettävä PDF-lomake, joka sit siirretään Acrobat Readeriltä Exceliin

    muitakin tapoja on mutta noi nyt mun mielestä helpoimmat näin äkkiseltään

    Keep EXCELing
    @Kunde
  17. noduuliin...

    Sub Muokkaa()
    Dim vika As Long
    Dim vika2 As Long
    On Error Resume Next
    Application.ScreenUpdating = False
    Worksheets("Sheet2").Range("A:B") = ""
    vika = Worksheets("Sheet1").Range("A65536").End(xlUp).Row
    For i = 1 To vika - 1
    vika2 = Worksheets("Sheet2").Range("A65536").End(xlUp).Row + 1
    Worksheets("Sheet1").Range("A1:E1").Copy
    Worksheets("Sheet2").Range("A" & vika2).PasteSpecial Transpose:=True
    Worksheets("Sheet1").Range("A" & i + 1 & ":E" & i + 1).Copy
    Worksheets("Sheet2").Range("B" & vika2).PasteSpecial Transpose:=True
    Next
    Application.ScreenUpdating = True
    Application.CutCopyMode = False
    Worksheets("Sheet2").Activate
    Range("A1").Select
    Rows("1:1").Delete
    Range("A1").Select
    End Sub

    miittele nimet ja alueet sopiviksi sopivaksi

    Keep EXCELing
    @Kunde
  18. ok
    !Toi step by step muutos.... Miksi ei voi käyttää ihan vaan tabulaattoria tavallisessa taulukon täyttämisessä?!

    jos sulla vaikka 10000 riviä tietoa ja sietlä satunnaisesti joku tieto pitää muuttaa aika hankalaa siirtyä tabulaattorilla/ nuolinäppäimillä/hiirellä ja varsinkin kun ei tiedä millä rivillä se on...
    lomakkeela se haku ja siinä edellinen ja seuraava joten aikanäppärästi löytyy tiedot
    mutta...
    MAI PEN RAI!
  19. "Yks kerta automaattinen muotoilu, niin näkee helposti lukea suoraan solustakin."

    nyt meni kyllä mun hilseen (kaljun) yli...
    Siis jos A- sarakkeesa vaikka päiväyksiä niin miten toi sun juttusi toimii????
    Siis sun automaatisella muotoilulla päiväykset tyyliin 12.3 1999 ja niihin tietueihin muutos step by step tyyliin?
    Nyt on sulla tarjolla jotakin uutta mitä, en ole ikinä kuullutkaan...
    Kerrohan lisää!

    Keep EXCELing
    @Kunde
  20. mielestäni lomalkkeelta helpompi lukea ja näkee kaikki yhden tietueen tiedot kerralla. Siinä lomakkeella on HAKU, joka helpottaa huomattavasti pitlässä listassa jonkun tiedon muuttamista verrattauna suoraan soluihin kirjoitettuna.
    Itse suosin tätä lomaketta,, toki en monestikaan ole sitä tarvinnut kuitenkaan....

    Keeo EXCELing
    @Kund
    21. 16 / 69
TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt