- Katılım
- 5 Eylül 2007
- Mesajlar
- 1,247
- Excel Vers. ve Dili
- ofis 2010
- Altın Üyelik Bitiş Tarihi
- 21-07-2024
iyi günler;
F sütununa göre firma ismine göre filtreleme yapıyorum. Bu durumda B sütununda çıkan firmaları YENİLENEN DEĞER olarak FORM çalışma sayfasının A sütununa almak istiyorum. Yenilenen değer olarak kullandığım makro vardı ancak filtrelemede yeterli olmuyor, makroya nasıl bir ilave yaparak kullanabilirim. Teşekkür ederim. Formda Filtreleme ve Yenilenen değer olarak aradım ancak bulamadım.
Filtreleme 14.cü satırdan başlıyor.
F sütununa göre firma ismine göre filtreleme yapıyorum. Bu durumda B sütununda çıkan firmaları YENİLENEN DEĞER olarak FORM çalışma sayfasının A sütununa almak istiyorum. Yenilenen değer olarak kullandığım makro vardı ancak filtrelemede yeterli olmuyor, makroya nasıl bir ilave yaparak kullanabilirim. Teşekkür ederim. Formda Filtreleme ve Yenilenen değer olarak aradım ancak bulamadım.
Kod:
Sub yenilenen_DURUM()
Application.ScreenUpdating = False
On Error Resume Next
Set S1 = ThisWorkbook.Worksheets("hücre")
Set S2 = ThisWorkbook.Worksheets("FORM")
S2.Range("a2:a65536").ClearContents
S2.Range("a2:d65536").Borders.LineStyle = xlNone
For i = 3 To S1.Range("b65536").End(xlUp).Row
If WorksheetFunction.CountIf(S1.Range("B14:B" & i), S1.Cells(i, "B")) = 1 Then
sonsatir = S2.Range("A65536").End(xlUp).Row + 1
S2.Cells(sonsatir, 1) = S1.Cells(i, 2)
S2.Range("a" & sonsatir & ":d" & sonsatir).Borders.LineStyle = xlContinuous 'kenar çizgisi oluşturmak
End If
Next i
Application.ScreenUpdating = True
MsgBox "İşlem TAMAM.", vbInformation
End Sub
Ekli dosyalar
-
54.5 KB Görüntüleme: 6
-
10.3 KB Görüntüleme: 6
-
21.1 KB Görüntüleme: 6