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. Sheets("data").Range("J105").End(xlDown)
    etsitään viimeinen tietoa sisältävä solu solusta J105 alaspäin
    .Offset(1, 0) taas valitsee yhden solun alaspäin aktiivisesta solusta
    eli

    Sheets("data").Range("J105").End(xlDown).Offset(1, 0)

    valitsee aina ensimmäisen tyhjän solun solusta J105 alaspäin

    voit poistaa ja lisätä rivejä ihan vapaasti ja tuo ylläoleva koodi pitää huolen oikeasta ekasta tyhjästä solusta...

    nyt mennään alaspäin ja jos välissä on tyhjä solu tyssää siihen eli pitää olla yhtenäinen alue tota käytettäessä.
    Jos välissä saa olla tyhjiä rivejä ja silti haluat aina viimeisen tyhjän solun sarakkeessa niin koodia pitää muuttaa
    Sheets("data").Range("J65536").End(xlUp).Offset(1, 0)
  2. tekstiruudun tiedot menee tekstinä soluun. Kyllähän se sorttaus pitäisi silti onnistua...
    kokeile laittaa siirrossa pvm muutos seuraavasti
    esim.
    Sub Koe()
    Dim vika As Integer
    On Error Resume Next
    Sheets(1).Activate
    vika = Range("A65536").End(xlUp).Row + 1
    Range("A" & vika) = CDate(TextBox1)
    Columns("A:A").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal
    End Sub

    P.S. käytä mun postaamaa HaeJASiirrä funktiota , se on kätevä tossa tapauksessa...
  3. soluun C1=1
    soluun C2 allaoleva matriisikaava ja vetämällä alaspäin

    {=IF(A2="";"";SUMPRODUCT(IF((A2
  4. ei onnistu päivitys ilman koodia reaaliajassa. Tosin nyt kun on noita volatile funktioita niin aina kun tapahtuu muutos taulukossa tapahtuu uudelleenlaskenta ja näinollen päivitys. Ei siis muuta kuin minuutin välein paineleen F9 tai muuttamaan jotain solun arvoa tai...KOODAAMAAN
  5. Itse tekisin näin:
    oletetaan, että tulokset tallennetaan tulokset taulukkoon ja testi taulukossa tehdään laskelmia.
    nappiin koodi, joka testaa löytyykö tuote1 jo tulokset taulukosta esim. sarakkeesta A - jos ei ole tallentaa tiedot(löytyy useampikin mun postaus hae ja siirrä aiheesta, pikkusen hakua peliin...) ja jos oli niin ei tee mitään.
    samoin kopiointi ihan perusjuttu
    eli hakutesti ja sitten solujenkopionti- ei kummonen juttu ;-)
  6. ColumnWidths
    0 pt;0 pt;0 pt
  7. Sheets("data").Range("J105").End(xlDown).Offset(1, 0) = ComboBoxVaruste1.Column(2)
  8. riippuu missä muodossa skannattu tiedosto on. Oletetaan, että esim. kuvana.
    1. Lisää kuva Exceliin
    2. Muokkaa kuva sopivan kokoiseksi
    3. Lisää paikkoihin mihin haluat tekstejä tekstiruutuja ja muokkaile reunat piilot yms., sitten linkität ne soluihin mistä haluat hakea tiedon ko. ruutuun kirjoittamalla kaavariville kun tekstiruutu on valittuna esim. =Taul2!A1
    ja sitten eiku tulostamaan...
  9. taulukon moduuliin ...
    muuta alue ja salasana sopivaksi

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
    ActiveSheet.Unprotect Password = "kunde"
    Range("A1:A10").Locked = False
    ActiveSheet.Protect Password = "kunde"
    End If
    End Sub
  10. taulukon moduuliin...

    Public vanha As Double
    Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    Application.EnableEvents = False
    If Not Intersect(Target, Range("A1")) Is Nothing Then
    Range("A1") = CDbl(Range("A1")) + CDbl(vanha)
    End If
    Application.EnableEvents = True
    End Sub

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    vanha = Range("A1")
    End Sub
  11. taulukon moduuliin...

    Public vanha As Double
    Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    Application.EnableEvents = False
    If Not Intersect(Target, Range("A1")) Is Nothing Then
    Range("A1") = Val(Range("A1")) + Val(vanha)
    End If
    Application.EnableEvents = True
    End Sub

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    vanha = Range("A1")
    End Sub
  12. mikset teet niinkuin neuvoin...
    voinhan koodia laittaaa niin ei tartte tuskailla...
  13. kontrollinnimi.Requery
    tai jotain tommosta se oli. Ei oo nyt tällä koneella Accesia, joten en voi tarkistaa
  14. toimisiko juttusi kommenttina. Lisäät kuvan kommenttiin ja muokkaat kokoa ja muotoja. Koodilla sen paikankin voi laittaa mihin haluaa...
    ja solujen kokoa muuttamalla kyllä kuvakin liikkuu mukana. Vaikea sanoa kun ei tarkkaan tiedä mitä haluat
  15. siis tiedot Sheet1:llä sarakkeissa A ja B. A sarakkeeseen merkitset X riville,jonka B sarakkeessa olevan tiedon haluat siirtää Sheet2:lle
    1. Lisää Sheet1 1 riville uusi rivi ja laita siihen otsikoiksi A1=Haku ja B1=Tieto
    2.Aktivoi Sheet2
    3. Kirjoita esim. soluihin E1= Haku, E2=X ja F1=Tieto
    4. Data/Filter/Advanced Filter lomakkeelle sitten seuraavat tiedot esim.
    Action kohdassa täppä Copy to another location
    List Range=Sheet1!$A$1:$B$100
    Criteria Range=$E$1:$F$2
    Copy to =$A$1

    siinä se.

    Muista, että suodatusta ei voi kopioida kuin aktiiviseeen taulukkoon, joten hakuehdot yms. on määriteltävä aktiivisessa taulukossa siis Sheet2, mutta itse hakutaulukko voi olla sitten missä tahansa taulukossa...

    ei ole tosta pahemmin mainintaa löytynyt ja vahingossahan se mullekin selvisi aikanaan kun koodissani oli bugi oikeassa paikassa :-)
  16. ihan Excelin omilla jutuillakin, jos mukana saa olla ne X:t. Jos et halua X:iä mukaan niin sitten pakko hoitaa koodilla. Mun postauksia löytyy aiheesta monia (kopioi/siirrä), kun hiukan hakua käyttää.
    No excelin omalla Advanced Filterillä onnistuu suoraan.
    Siitä toisesta taulukosta määrittelet hakuehtoalueen ja paikan mihin kopioidaan. Originellistä määrittelet suodatusalueen. Täppä Copy to Another location Action kohdassa ja OK
    Ei se ton kummosempi ole...
  17. samat ohjeet edelleen...
    eli poista taulukosta kaikkien solujen lukitukset ja tallenna työkirja. Muista suojata VBA koodi myös salasanalla.

    lisätty sarakkeet suojaukseen ja lukitusrivin alku nyt riviltä 6. Helppo lisätä tohon uusia lukittavia soluja

    Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim vika As Integer
    On Error Resume Next
    Sheets("Sheet1").Unprotect Password:="Kunde"

    Range("A1:R5").Locked = True
    Columns("B:B").Locked = True
    Columns("O:O").Locked = True
    Columns("P:P").Locked = True
    vika = Range("A65536").End(xlUp).Row
    If vika > 5 Then
    Range("A6:A" & vika).EntireRow.Locked = True
    End If
    Sheets("Sheet1").Protect Password:="Kunde"
    End Sub
  18. no nyt sitten yhdellä klikkauksella...

    litä makro nappiin
    moduuliin...

    Sub Näytä()
    Application.Dialogs(xlDialogDefineName).Show
    End Sub
  19. käytät enkku versiota koska se toimi tyhjällä työkirjalla...(sain tän toimimaan uudella tyhjällä excel-tiedostolla) ja vanhassa työkirjassasi ei ole Sheet2 nimistä taulukkoa, joten muuta koodissa se oikeaksi.

    Range("A65536")on A sarakkeen viimeinen solu versioissa ennen 2007. Siitä haetaan ylöspäin viimeinen solu, jossa tietoa ja siitä siirrytään offsetillä 1 solu alaspäin, johon tiedot kopioidaan
    @Kunde
  20. moduuliin...

    Sub Siirrä()
    Range("A1:B1").Copy Destination:=Sheets("Sheet2").Range("A65536").End(xlUp).Offset(1, 0)
    End Sub
    21. 54 / 69
TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt