-
- Destek
-
Özel Arama
![]() |
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(ActiveCell, Range("A3:H13")) Is Nothing Then Range("A3:H13").Sort Key1:=Range("D2"), Order1:=xlAscending
End Sub
ozan.ilgun@boun.edu.tr |
Ozan İLGÜN yazdı:Sayfanın kaynak koduna eklemelisiniz.
A3 ile H13 arasında bir yerin değerini değiştirdiğinizde etkileşime geçer.
- Kod: Tümünü seç
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(ActiveCell, Range("A3:H13")) Is Nothing Then Range("A3:H13").Sort Key1:=Range("D2"), Order1:=xlAscending
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(ActiveCell, Range("A3:I12")) Is Nothing Then
Range("A3:I12").UnMerge
Range("A3:I12").Sort Key1:=Range("D2"), Order1:=xlAscending
For i = 3 To 12
Range("F" & i & ":I" & i).Merge
Next i
End If
If Not Intersect(ActiveCell, Range("A17:I31")) Is Nothing Then
Range("A17:I31").UnMerge
Range("A17:I31").Sort Key1:=Range("D16"), Order1:=xlAscending
For i = 17 To 31
Range("F" & i & ":I" & i).Merge
Next i
End If
End Sub
ozan.ilgun@boun.edu.tr |
Ozan İLGÜN yazdı:
- Kod: Tümünü seç
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(ActiveCell, Range("A3:I12")) Is Nothing Then
Range("A3:I12").UnMerge
Range("A3:I12").Sort Key1:=Range("D2"), Order1:=xlAscending
For i = 3 To 12
Range("F" & i & ":I" & i).Merge
Next i
End If
If Not Intersect(ActiveCell, Range("A17:I31")) Is Nothing Then
Range("A17:I31").UnMerge
Range("A17:I31").Sort Key1:=Range("D16"), Order1:=xlAscending
For i = 17 To 31
Range("F" & i & ":I" & i).Merge
Next i
End If
End Sub
Ozan İLGÜN yazdı:Sayfanın kaynak koduna eklemelisiniz.
A3 ile H13 arasında bir yerin değerini değiştirdiğinizde etkileşime geçer.
- Kod: Tümünü seç
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(ActiveCell, Range("A3:H13")) Is Nothing Then Range("A3:H13").Sort Key1:=Range("D2"), Order1:=xlAscending
End Sub
Ozan İLGÜN yazdı:Sayfanın kaynak koduna eklemelisiniz.
A3 ile H13 arasında bir yerin değerini değiştirdiğinizde etkileşime geçer.
- Kod: Tümünü seç
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(ActiveCell, Range("A3:H13")) Is Nothing Then Range("A3:H13").Sort Key1:=Range("D2"), Order1:=xlAscending
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Not Intersect(ActiveCell, Range("B3:I12")) Is Nothing Then
Range("B3:I12").UnMerge
Range("B3:I12").Sort Key1:=Range("D2"), Order1:=xlAscending
For i = 3 To 12
Range("F" & i & ":I" & i).Merge
Next i
End If
End Sub
ozan.ilgun@boun.edu.tr |
Ozan İLGÜN yazdı:Aşama aşama anlatıyorum
Yapılması Gerekenler:
⋆ Sayfa açılınca sayfalardan herhangi birisine sağ tıklayın.
⋆ Açılan seçeneklerden kod görüntüle'yi seçin.
⋆ Açılan pencerede sol tarafta BuÇalışmaKitabı yazan yere çift tıklayın.
⋆ Aşağıdaki kodu oraya yapıştırın.
⋆ Kod ekranını kapatıp sayfaya dönün.
⋆ Sayfada saatlerden birini sıralamayı değiştirecek şekilde arttırıp azaltın.
⋆ Sorun çözülmüş olacak.
- Kod: Tümünü seç
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Not Intersect(ActiveCell, Range("B3:I12")) Is Nothing Then
Range("B3:I12").UnMerge
Range("B3:I12").Sort Key1:=Range("D2"), Order1:=xlAscending
For i = 3 To 12
Range("F" & i & ":I" & i).Merge
Next i
End If
End Sub
ozan.ilgun@boun.edu.tr |
Ozan İLGÜN yazdı:Zaten yaptığımız şey makro. Formülde kullanabilirdiniz belki . Ama bu tarz sorunlarda makro daha iyidir.
Bu forumu görüntüleyenler: AhrefsBot, Google [Bot] ve 5 misafir