Hücreye otomatik veri

[bymatrix]

Excele yeni yeni başladım.. Şu anda eğitimle ilgili bir çalışma yapıyorum.. Şöyle bir şey yapmak istiyorum yardımcı olursanız sevinirim şimdiden teşekkürler...

Sürekli kullandığım veilere kısayol atamak...
Mesela sayfa 1 de

pazartasi salı çarş....pazar..

sayfa ikiye kopyalama yapılmadan kısayol yada artık etiketle m nasıl oluyosa ikinci sayfaya elemek... ikinci sayfada ki a1 e p yazdığımda a2 yepazartesi b1 e s yazdığımda salı b2ye .. gibi eğer anlamadıysanız lütfen yazın..

 

[N.Ziya Hiçdurmaz]

sayfa kod bölümüne kopyalayınız a sütununa girdiğiniz baş harflere göre b sütununda karşı gelen hücrelere günleri yazar.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a1:a100]) Is Nothing Then Exit Sub
For i = 1 To 100
If Range("a" & i) = "p" Then ActiveCell.Offset(-1, 1) = "pazartesi"
If Range("a" & i) = "s" Then ActiveCell.Offset(-1, 1) = "salı"
If Range("a" & i) = "ç" Then ActiveCell.Offset(-1, 1) = "çarşamba"
If Range("a" & i) = "p" Then ActiveCell.Offset(-1, 1) = "perşembe"
If Range("a" & i) = "c" Then ActiveCell.Offset(-1, 1) = "cuma"
If Range("a" & i) = "cu" Then ActiveCell.Offset(-1, 1) = "cumartesi"
If Range("a" & i) = "pa" Then ActiveCell.Offset(-1, 1) = "pazar"
Next
End Sub

 

[N.Ziya Hiçdurmaz]

Formül ile isterseniz.(b sütununa girilecek)
=+EĞER(A1="P";"Pazartesi";EĞER(A1="S";"Salı";EĞER(A1="Ç";"Çarşamba";EĞER(A1="P";"Perşembe";EĞER(A1="C";"Cuma";EĞER(A1="Cu";"Cumartesi";EĞER(A1="Pa";"Pazartesi";"")))))))

 

[bymatrix]

Teşekkür ederim birde indis ve kaçıncıformülleri ile yapılıyormuş... onuda anlatırsanız sevinirim

 

[Ali]

Eğer 1 yazdığınız Pazartesi,2 yazdığınızda Salı gelmesi isterseniz aşağıdaki gibide kullanabilirsiniz.

=ELEMAN(HAFTANINGÜNÜ(A1);"Pazartesi";"Salı";"Çarşamba";"Perşembe";"Cuma";"Cumartesi";"Pazar")

 

[Necdet]

Sayın Ali'nin fonksiyon yazılımında küçük bir düzeltme gerekiyor. Haftanın 1. gününün Pazartesi olduğunu düşünürsek :

=ELEMAN(HAFTANINGÜNÜ(A1;2);"Pazartesi";"Salı";"Çarşamba";"Perşembe";"Cuma";"Cumartesi";"Pazar")

Olmalı, Fakat mevcut durumda kullanabilmek için Pazar ilk sırada olmalı

=ELEMAN(HAFTANINGÜNÜ(A1);"Pazar";"Pazartesi";"Salı";"Çarşamba";"Perşembe";"Cuma";"Cumartesi")

 

[Ali]

Necdet Bey Eleman fonksiyonu ilk dizi sırasını bir kabul ederek gittiği için yazdığı hali ilede kullanılabilir diye düşünüyorum. Hatta haftanıngünüde olmadan

=ELEMAN(A1;"Pazartesi";"Salı";"Çarşamba";"Perşembe";"Cuma";"Cumartesi";"Pazar")

olarak A1'deki sayıya göre veri gelebilir. Atladığım bir yer varsa siz düzeltirsiniz.

 

[Necdet]

Ali Bey,

Son mesajınızda haklısınız, fakat haftanın günü fonksiyonunu da kullanınca sorun çıkıyordu, onu belirtmek istemiştim,

İyi Geceler Diliyorum.