kunde
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
Liittynyt sitten
Muokkaa profiilia7 aloitusta · 1377 kommenttia
- ja miten syötetään hakuehdot?
- miten noi arvot on taulukossa?
- 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 - 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 - voitko liittää sen poistokoodin tänne?
- 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 - 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 - 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 - 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 - oikea ratkaisu...
tossa nauhoittimen makro siistittynä
Range("B2:B55").SpecialCells(xlCellTypeBlanks).Delete
Keep Excel
@Kunde - 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 - 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 - 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 - "- 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 - Onnistuu VBA:lla
noilla antamallasi tiedoilla mission impossible, vaatii tarkemmat tiedot mistä solusta mihin soluun ja taulukoiden nimet yms...
Keep EXCELing
@Kunde - 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 - 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 - 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! - "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 - 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