ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[anorian]

Selamın aleyküm randevu exceli oluşturdum isim soyisim telefon girdikten sonra saatini yazdığımda saatlerin kendisini otomatik sıralamasını verilerin üste alta kendi kendine otomatik saate göre yerleşmesini istiyorum kod gönderirmisiniz teşekkürler

[Ozan İLGÜN]

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


[anorian]

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


ilginiz için çok teşekkürler dosyayı vermeye unutmuşum ekte
https://www.dosyaupload.com/nn13

ben denedim fakat çalışmadı sayfaya gelip sağ tıklatıp kod görüntüle kısmından inserte gelip modüle tıklıyoruz ardından verdiğiniz kodları yapıştırdım ve kapattım fakat çalışmadı saatler kendi kendini sıralamıyor diğer stünlardaki verilerle birlikte sorun benden mi kaynaklı acaba yapamadım mı

[Ozan İLGÜN]

BOŞ EDİTLİ.rar

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



[anorian]

BOŞ EDİTLİ.rar

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



çok saolun ama ben ekte verdiğiniz dosyayı indirip saat kısmına saat yazınca sıralanmadı yine acaba ne eksik olabilir excel ayarlarından birşeyleri aktif etmem mi gerekiyor yoksa sizin verdiğinizde mi problem var

[anorian]

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


çok teşekkürediyorum çalıştı fakat SIRA NO olan kısmın değişmemesini istiyorum oradaki numaraların değişmeden olanını verebilirmisisniz

[anorian]

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


excel resimi:



https://ibb.co/ZLZwwjK



en son editlediğim dosyanın kendisi bu dosya üzerinden işlem yaparsanız sevinirim:



https://www.dosyaupload.com/jb2c

[Ozan İLGÜN]

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

[anorian]

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

çok teşekkürederim ben ilk yorumunuzdaki kodun içindeki stün sayılarını harflerini kendime göre editleyip SIRA NO değişim sıkıntısını çözdüm şimdi çok güzel çalışıyor fakat bir sorumda şu ki bu kodlarla visual basic kısmıyla bunu halledebiliyoruz peki makro ile yapsa idik ne gibi artı eksisi olurdu visual basice göre yani makro ile mi yoksa visual basicle mi işlem yapmalıyım siz neyi öneriyorsunuz yeni yeni öğreniyorum ondan bilginize başvurayım

[Ozan İLGÜN]

Zaten yaptığımız şey makro. Formülde kullanabilirdiniz belki . Ama bu tarz sorunlarda makro daha iyidir.

[anorian]

Zaten yaptığımız şey makro. Formülde kullanabilirdiniz belki . Ama bu tarz sorunlarda makro daha iyidir.

çok saolun sorunum çözüldü başka konularda sizlerle görüşmek üzere teşekkürler