Janusz
Mach
nauczyciel, Zespół
Szkół
Tomasz
Gryzio
Dyrektor
zarządzający/Trener/
Konsultant - It
School
Tomasz Gryzio edytował(a) ten post dnia 20.11.11 o godzinie 19:27
Sub sKopiuj()
'Application.ScreenUpdating = False
Dim rZrodlo As Range
Set rZrodlo = Application.InputBox("Zaznacz zakres.", Type:=8)
rZrodlo.Copy
For i = 2 To Sheets.Count
Sheets(i).Activate
Sheets(i).Range("d1").Select
Sheets(i).Paste
Next
end sub
konto usunięte
Sub sKopiuj()
Dim rZrodlo As Range
Dim i As Integer
Set rZrodlo = Application.InputBox(Prompt:="Zaznacz zakres:", Type:=8)
Application.ScreenUpdating = False
For i = 2 To Sheets.Count
rZrodlo.Copy Sheets(i).Range("A1")
Next
Application.ScreenUpdating = True
End Sub
Janusz
Mach
nauczyciel, Zespół
Szkół
konto usunięte
Tomasz
Gryzio
Dyrektor
zarządzający/Trener/
Konsultant - It
School
Sub mUkryj()
Dim i As Integer
For i = 3 To 62
If Cells(110, i) = 0 Then
Columns(i).EntireColumn.Hidden = True
End If
Next
End Sub
konto usunięte
Tomasz
Gryzio
Dyrektor
zarządzający/Trener/
Konsultant - It
School
Dariusz Nowak:Definiuję zmienną - urządzenie przechowujące wartości w czasie działania makra pozwalające na wykonanie określonych działań w czasie jego trwania o nazwie "i" przechowującą tylko liczby całkowite - Integer:
dziękuję Panie Tomaszu mógłbyś mi wytłumaczyć o co w tym chodzi
z tymi
dim i As Integer
itdJeśli zadaniem makra było ukrywanie danej kolumny jeżeli w jej wierszu o nr 110 (C110, D110... BC110) to oczywiście działa.
poza tym ten skrypcik nie działa chyba że coś źle robię
Anna A. Kontroler Finansowy
Anna A. Kontroler Finansowy
konto usunięte
Anna A. Kontroler Finansowy
konto usunięte
Adam
Nieradzik
Student, Uniwersytet
Ekonomiczny w
Wroclaw
konto usunięte
Sub WytnijAuto()
Dim i&
For i = Cells(Rows.Count, "B").End(xlUp).Row To 1 Step -1
If Cells(i, 2).Value = "Auto" Then Rows(i).Delete
Next i
End Sub
Adam
Nieradzik
Student, Uniwersytet
Ekonomiczny w
Wroclaw
Darek J.:
Witam,
proszę spróbować odpalić makro:
Sub WytnijAuto()
Dim i&
For i = Cells(Rows.Count, "B").End(xlUp).Row To 1 Step -1
If Cells(i, 2).Value = "Auto" Then Rows(i).Delete
Next i
End Sub
Pozdrawiam.
Andrzej
O.
Analityk ds.
raportowania i
analiz
Sub WytnijAuto()
Dim i&
For i = Cells(Rows.Count, "B").End(xlUp).Row To 1 Step -1
If Cells(i, 2).Value = "Auto" Then Rows(i).Delete
Next i
End Sub
jeżeli komórka(i, 2).wartość = "Twoje kryterium wyszukiwania"
JestPrawdąTo Wiersz(i).Kasuj
Andrzej O. edytował(a) ten post dnia 15.03.12 o godzinie 12:56
jeżeli komórka(i, 2).wartość = "Twoje kryterium wyszukiwania"
JestPrawdąTo komórka(i, 2).Kasuj
konto usunięte
Adam Nieradzik:Jeżeli danych nie będzie zbyt wiele, to spróbuj zamiast
Odnośnie tego makra, jeżeli chciałbym aby usuwało więcej niż tylko jedno wyrażenie (w tym przykładzie więcej niż tylko auto) w jaki sposób mogę dopisać wyrażenia? np jeżeli w danym wierszu pojawi się słowo auto lub dom lub pies.... itd ;)
Z góry dziękuję za odpowiedź.
Pozdrawiam
If Cells(i, 2).Value = "Auto" ...
If Cells(i, 2).Value = "Auto1" Or Cells(i, 2).Value = "Auto2" Or Cells(i, 2).Value = "Auto3" ...
Następna dyskusja:
пропозиції роботи
