magnesia
Yasaklı üye
- Katılım
- 1 Ocak 2018
- Mesajlar
- 351
- Excel Vers. ve Dili
- Excel 2010 Türkçe
- Altın Üyelik Bitiş Tarihi
- 01.01.2023
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Ekli dosyayı inceler misin, umarım işini görür....Sayın dalgalikur.
Öncelikle ilginize ve emeğinize teşekkür ederim.
O çözümü biliyordum. Ancak, ben dosyanın kısa halini yolladım. Dosyanın A ve B sütunlarındaki veriler başka yerden formülle geliyor..
Verdiğiniz çözümün dışında bir çözüm bana daha uygun. (Varsa tabii ki..)
Tekrar teşekkürler.
Sayın tamer42.
İşlem tamam.. İlginize ve emeğinize teşekkür ederim.
Ek bir sorum olacak.
Bu tabloyu;
Private Sub Worksheet_Activate()
Range("A2: D" & [A36].End(3).Row).Sort Key1:=Cells(1, "D")
End Sub
kodlarıyla, D sütunu baz alınarak, BÜYÜKTEN KÜÇÜĞE sıralatmak istiyorum fakat küçükten büyüğe sıralıyor.
Sub sirala()
Range("A2: D" & Range("B36").End(3).Row).Sort Key1:=Range("D2"), Order1:=xlDescending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
End Sub
kodlarıyla isteğim oluyor fakat bu sefer de listenin sonundaki #YOK yazılı satırlar en başa geliyor.
Bu #YOK uyarılarının görünmemesi için ne yapabilirim?
Sayın tamer42.
Sakın yanlış anlamayın lütfen.. "Diğer üstadlar" derken??
Sizin bu sorunuz Beni aşan bir durum olduğu için; Forumdaki Üstatların yardımcı olabileceğini düşünmüştüm.Sayın tamer42.
Sakın yanlış anlamayın lütfen.. "Diğer üstadlar" derken??
Private Sub Worksheet_Change(ByVal Target As Range)
Range("A1:C20").Sort Key1:=Range("C2"), Order1:=xlDescending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A1").Select
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
End Sub
veri =OFFSET('En çok DÖF açılan bölümler'!$C$2;0;0;COUNTIF('En çok DÖF açılan bölümler'!$C$2:$C$20;">0");1)
xetiket =OFFSET('En çok DÖF açılan bölümler'!$A$2;0;0;COUNTIF('En çok DÖF açılan bölümler'!$C$2:$C$20;">0");1)