[Çözüldü]  RANDEVU LİSTESİNDE GİRİLEN VERİ İLE SAATİ OTOMATİK SIRALAMA

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

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

İleti#1)  anorian » 08 Ağu 2019 14:43

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
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
anorian
 
Kayıt: 08 Ağu 2019 14:33
Meslek: girilmedi
Yaş: 35
İleti: 9
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

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

İleti#2)  Ozan İLGÜN » 08 Ağu 2019 15:25

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.ilgun@boun.edu.tr

Resim
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 12:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 33
İleti: 2888
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



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

İleti#3)  anorian » 08 Ağu 2019 15:44

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ı
Kullanıcı avatarı
anorian
 
Kayıt: 08 Ağu 2019 14:33
Meslek: girilmedi
Yaş: 35
İleti: 9
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

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

İleti#4)  Ozan İLGÜN » 08 Ağu 2019 15:57

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

Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
ozan.ilgun@boun.edu.tr

Resim
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 12:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 33
İleti: 2888
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

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

İleti#5)  anorian » 09 Ağu 2019 09:27

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
Kullanıcı avatarı
anorian
 
Kayıt: 08 Ağu 2019 14:33
Meslek: girilmedi
Yaş: 35
İleti: 9
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

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

İleti#6)  anorian » 09 Ağu 2019 14:18

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
Kullanıcı avatarı
anorian
 
Kayıt: 08 Ağu 2019 14:33
Meslek: girilmedi
Yaş: 35
İleti: 9
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

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

İleti#7)  anorian » 09 Ağu 2019 14:33

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
Kullanıcı avatarı
anorian
 
Kayıt: 08 Ağu 2019 14:33
Meslek: girilmedi
Yaş: 35
İleti: 9
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

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

İleti#8)  Ozan İLGÜN » 09 Ağu 2019 15:20

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

Resim
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 12:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 33
İleti: 2888
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



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

İleti#9)  anorian » 09 Ağu 2019 15:33

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
Kullanıcı avatarı
anorian
 
Kayıt: 08 Ağu 2019 14:33
Meslek: girilmedi
Yaş: 35
İleti: 9
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

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

İleti#10)  Ozan İLGÜN » 09 Ağu 2019 15:56

Zaten yaptığımız şey makro. Formülde kullanabilirdiniz belki . Ama bu tarz sorunlarda makro daha iyidir.
ozan.ilgun@boun.edu.tr

Resim
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 12:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 33
İleti: 2888
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



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

İleti#11)  anorian » 09 Ağu 2019 16:13

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]
Kullanıcı avatarı
anorian
 
Kayıt: 08 Ağu 2019 14:33
Meslek: girilmedi
Yaş: 35
İleti: 9
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot, Google [Bot] ve 5 misafir

Bumerang - Yazarkafe