napisał: Trebor postów: 1209
umieszczony: 25 lipca 2016 16:23
|
|
Można wpisać wprost formułę bez jej kopiowania: Sheets("UNA WYPOŻYCZONE").Cells(ostatni, 16) = "=O" & ostatni & "- today()" |
|
napisał: toczi1 postów: 75
umieszczony: 25 lipca 2016 14:01
edytowany: 25 lipca 2016 14:06
|
|
Jaki kod wstawić żeby kopiowało formulę np z P4 do Importowanego UNA do kolumny P. Chyba trzeba to wstawić tutaj gdzieś:
For i = ListBox1.ListCount - 1 To 0 Step -1
If ListBox1.Selected(i) Then
With Sheets(ListBox1.List(i, 4)) 'arkusz zapisany w listbox1
.Range(.Cells(ListBox1.List(i, 2), 1), .Cells(ListBox1.List(i, 2), .Columns.Count).End(xlToLeft)).Copy Sheets("UNA WYPOŻYCZONE").Cells(ostatni, 1)
If ListBox1.List(i, 3) = "19" Then
Sheets("UNA WYPOŻYCZONE").Cells(ostatni, 5) = "ZGOD"
Sheets("UNA WYPOŻYCZONE").Cells(ostatni, 14) = Date
Sheets("UNA WYPOŻYCZONE").Cells(ostatni, 13) = .Cells(ListBox1.List(i, 2), 16)
End If |
|
napisał: toczi1 postów: 75
umieszczony: 24 lipca 2016 19:40
|
|
Zrobione
|
|
napisał: Trebor postów: 1209
umieszczony: 23 lipca 2016 07:16
|
|
Zmień linię warunkową na poniższą: If UCase(.Cells(i, 1)) Like TekstSzukany Or UCase(.Cells(i, 2)) Like TekstSzukany Then
Like to ciekawy operator. Warto się z nim zapoznać bliżej. |
|
napisał: toczi1 postów: 75
umieszczony: 21 lipca 2016 16:14
|
|
Cytat:Sprawdź działanie.
Szerokość kolumn w ListBox możesz ustawić indywidualnie. W okienku właściwości dla listbox wyszukaj columnwidth i wpisz coś w rodzaju:
30;25;45;50
Ok
A potrzebował bym jaka jest komenda aby nie szukało sztywno całego tekstu tylko np wpisuje MW* i znalazło wszystkie rekordy z tekstem z przodu MW.
Chodzi mi o import bo do reszty sobie już podstawie sam |
|
napisał: Trebor postów: 1209
umieszczony: 16 lipca 2016 06:05
|
|
Sprawdź działanie.
Szerokość kolumn w ListBox możesz ustawić indywidualnie. W okienku właściwości dla listbox wyszukaj columnwidth i wpisz coś w rodzaju:
30;25;45;50 |
|
napisał: admin postów: 613
umieszczony: 15 lipca 2016 23:29
|
|
sorki za offtopic.
Admin jest z Jarosławia;) |
|
napisał: toczi1 postów: 75
umieszczony: 15 lipca 2016 18:38
|
|
Cytat: Soryt ze zawracam głowę ale doszła mi jedna zakładka i próbowałem co zrobić ale sypie mi błędy. Potrzebował bym:
Przy imporcie żeby tez szukało w zakładce UNA_CO_5_LAT i przenosiło to do wypożyczone jak do tej pory to robi.
Przy exporcie żeby był ten przycisk co dodałem żeby przenosiło albo do wypożyczalni tak jak działa pierwszy albo żeby przenosiło do UNA_CO_5_LAT.
Wystarczy chyba tylko skopiować komendy i zmienić nazwy zakładek robiłem tak ale coś nie tak chyba wkleiłem w dobre miejsce
Do przycisku Dodaj UNA dopisałem żeby tez dodawało do tej 3 zakładki to było proste hehe
Komendę z exportem zrobiłem domyśliłem się jak ale z importem nie mam pojęcia. Bo jeśli przekopuje wszystko poniżej end sub i zmienię nazwy zakładek to wyrzuca błąd na Private Sub CommandButton1_Click. |
|
napisał: toczi1 postów: 75
umieszczony: 15 lipca 2016 15:53
|
|
Soryt ze zawracam głowę ale doszła mi jedna zakładka i próbowałem co zrobić ale sypie mi błędy. Potrzebował bym:
Przy imporcie żeby tez szukało w zakładce UNA_CO_5_LAT i przenosiło to do wypożyczone jak do tej pory to robi.
Przy exporcie żeby był ten przycisk co dodałem żeby przenosiło albo do wypożyczalni tak jak działa pierwszy albo żeby przenosiło do UNA_CO_5_LAT.
Wystarczy chyba tylko skopiować komendy i zmienić nazwy zakładek robiłem tak ale coś nie tak chyba wkleiłem w dobre miejsce
Do przycisku Dodaj UNA dopisałem żeby tez dodawało do tej 3 zakładki to było proste hehe |
|
napisał: Trebor postów: 1209
umieszczony: 14 lipca 2016 21:12
|
|
Proszę.
Ja mieszkam w Rzeszowie, ale się nie przejmuj |
|
napisał: toczi1 postów: 75
umieszczony: 14 lipca 2016 21:09
|
|
Wielkie dzięki naprawdę bardzo mi pomogłeś i przy okazji nauczyłem się trochę programowania makr. Co nauczone nie pójdzie w las.
W załączeniu końcowa wersja pliku.
Jeszcze raz wielkie dzięki.
Jak bedziesz w Rzeszowie zapraszam na f....kę |
|
napisał: Trebor postów: 1209
umieszczony: 14 lipca 2016 20:53
|
|
Druga część procedurki dla przycisku 2 w exporcie
'------------------------------------------------------------------------------------
With Sheets("UNA WYPOŻYCZONE")
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
If ListBox1.List(ListBox1.ListIndex, 3) = "19" Then .Cells(ListBox1.List(i, 2), 16).Value = .Cells(ListBox1.List(i, 2), 16).Value
.Range(.Cells(ListBox1.List(i, 2), 1), .Cells(ListBox1.List(i, 2), .Columns.Count).End(xlToLeft)).Copy Sheets("UNA W WYPOŻYCZALNI").Cells(ostatni, 1)
Sheets("UNA W WYPOŻYCZALNI").Cells(ostatni, 5) = ListBox1.List(ListBox1.ListIndex, 3)
Sheets("UNA W WYPOŻYCZALNI").Cells(ostatni, 7) = ""
ostatni = ostatni + 1
.Rows(ListBox1.List(i, 2)).Delete
End If
Next i
End With
Unload Me
End Sub |
|
napisał: Trebor postów: 1209
umieszczony: 14 lipca 2016 20:05
|
|
Musisz wykazać się większą cierpliwością. Poczekaj na odpowiedź na swój post, zanim napiszesz następny.
Sprawdź czy z przeróbkami dasz sobie radę w ostatnim załączniku. |
|
napisał: toczi1 postów: 75
umieszczony: 14 lipca 2016 19:37
|
|
To jest do przycisku export co trzeba dac zeby podbierało wcisniecie przycisku INNE lub 19
With Sheets("UNA WYPOŻYCZONE")
For i = ListBox1.ListCount - 1 To 0 Step -1
If ListBox1.Selected(i) Then
.Range(.Cells(ListBox1.List(i, 2), 1), .Cells(ListBox1.List(i, 2), .Columns.Count).End(xlToLeft)).Copy Sheets("UNA W WYPOŻYCZALNI").Cells(ostatni, 1)
If ListBox1.List(i, 3) = "ZGOD" Then
Cells(ostatni, 5) = .Cells(ListBox1.ListIndex, 3)
Cells(ostatni, 16).Value = Cells(ostatni, 16).Value
End If
If UCase(ListBox1.List(i, 3)) = "ZGOD" Then
Cells(ostatni, 5) = .Cells(ListBox1.ListIndex, 4)
End If
Cells(ostatni, 7) = InputBox("Podaj nazwisko")
ostatni = ostatni + 1
.Rows(ListBox1.List(i, 2)).Delete
End If
Next i
End With
Unload Me
End Sub
Private Sub CommandButton3_Click()
ListBox1.List(ListBox1.ListIndex, 3) = ActiveControl.Caption
End Sub
Private Sub CommandButton4_Click()
ListBox1.List(ListBox1.ListIndex, 3) = ActiveControl.Caption
End Sub
Private Sub CommandButton5_Click()
ListBox1.List(ListBox1.ListIndex, 3) = ActiveControl.Caption
End Sub |
|
napisał: toczi1 postów: 75
umieszczony: 14 lipca 2016 18:28
|
|
Cytat: Czy pierwsza kolumna (textBox1) w obydwu wierszach dopisywanych miała jakieś wartości?
Założyłem, że pierwsza kolumna jest zawsze wypełniona.
Nie kumam?? Bo jak dasz przycisk po wypełnieniu danych DODAJ DO WYPOŻYCZONE to działa to dobrze
A ja zrobiłem przycisk DODAJ DO WYPOŻYCZALNI analogicznie jak ty zrobiłeś pierwszy tylko jak dodaje kolejne to nadpisuje wcześniejsze.
A w makro zmieniłem tylko
End Sub
Private Sub Label2_Click()
End Sub
Private Sub TextBox2_Change()
End Sub
Private Sub TextBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
End Sub
Private Sub UserForm4_Click()
Tutaj wszędzie gdzie 2 były 1 i to zmieniłem bo nie szło jeśli były 1 bo był błąd ze poniżej do przycisku 2 jest to przypisane |
|
napisał: toczi1 postów: 75
umieszczony: 14 lipca 2016 18:23
|
|
Złożyłem wszystko w całość do zrobienia tylko zostaje:
Jeśli dodaje Una do wypożyczalni to nadpisuje mi na poprzednie dodane
I makro export tak ze jak przenosimy z zakładki WYPOŻYCZONE to aby było do zaznaczenia jaki ma być status po przeniesieniu 19 lub INNE, aby kasowało nazwisko i usuwało funkcje w kontrola z dni i zostawiało wartość
To by było na tyle
|
|
napisał: Trebor postów: 1209
umieszczony: 14 lipca 2016 18:23
edytowany: 14 lipca 2016 18:23
|
|
Czy pierwsza kolumna (textBox1) w obydwu wierszach dopisywanych miała jakieś wartości?
Założyłem, że pierwsza kolumna jest zawsze wypełniona. |
|
napisał: toczi1 postów: 75
umieszczony: 14 lipca 2016 18:14
|
|
Zrobiłem dodawanie Una do wypożyczalni tylko ze jak tworze nowe to nadpisuje mi na poprzednie dodane |
|
napisał: Trebor postów: 1209
umieszczony: 14 lipca 2016 18:06
|
|
Złóż ostatnie dwa pliki w jeden.
Zamieść na forum z informacją co trzeba poprawić.
Nie wiem ile jesteś w stanie zrobić samodzielnie. |
|
wszystkich stron: 3
|
|