1 sayfadan 1. sayfa

RANDEVU LİSTESİNDE GİRİLEN VERİ İLE SAATİ OTOMATİK SIRALAMA

İletiTarih: 08 Ağu 2019 14:43
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

Cevap: RANDEVU LİSTESİNDE GİRİLEN VERİ İLE SAATİ OTOMATİK SI

İletiTarih: 08 Ağu 2019 15:25
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

Cevap: Cevap: RANDEVU LİSTESİNDE GİRİLEN VERİ İLE SAATİ OTOM

İletiTarih: 08 Ağu 2019 15:44
anorian
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

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ı

Cevap: RANDEVU LİSTESİNDE GİRİLEN VERİ İLE SAATİ OTOMATİK SI

İletiTarih: 08 Ağu 2019 15:57
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


Cevap: Cevap: RANDEVU LİSTESİNDE GİRİLEN VERİ İLE SAATİ OTOM

İletiTarih: 09 Ağu 2019 09:27
anorian
Ozan İLGÜN yazdı:
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

Cevap: Cevap: RANDEVU LİSTESİNDE GİRİLEN VERİ İLE SAATİ OTOM

İletiTarih: 09 Ağu 2019 14:18
anorian
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

ç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

Cevap: Cevap: RANDEVU LİSTESİNDE GİRİLEN VERİ İLE SAATİ OTOM

İletiTarih: 09 Ağu 2019 14:33
anorian
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

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

Cevap: RANDEVU LİSTESİNDE GİRİLEN VERİ İLE SAATİ OTOMATİK SI

İletiTarih: 09 Ağu 2019 15:20
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

Cevap: Cevap: RANDEVU LİSTESİNDE GİRİLEN VERİ İLE SAATİ OTOM

İletiTarih: 09 Ağu 2019 15:33
anorian
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

ç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

Cevap: RANDEVU LİSTESİNDE GİRİLEN VERİ İLE SAATİ OTOMATİK SI

İletiTarih: 09 Ağu 2019 15:56
Ozan İLGÜN
Zaten yaptığımız şey makro. Formülde kullanabilirdiniz belki . Ama bu tarz sorunlarda makro daha iyidir.

Cevap: Cevap: RANDEVU LİSTESİNDE GİRİLEN VERİ İLE SAATİ OTOM

İletiTarih: 09 Ağu 2019 16:13
anorian
Ozan İLGÜN yazdı: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 [yummy]