harf yerine isim ekleme

[feridunsah]

üstadların acil yardımı lazım önce konuyla ilgili açıklama
yapayım örnek olarak iki çeşit çizelgeyi ekte veriyorum
bu çizelgeler yılın 12 ayına denk gelecek şekilde ayarlayıp
yani her ay için ayrı olacak şekilde mümkünse birde çizelgedeki isimleri ( a,b,c,d,e,f,g ) olarak 7 kişi den oluşmaktadır. bunları çizelge dışına harf olarak yazıp çizelgedeki yerlerine a=halit , b=murat yani a nın yerine kimi yazarsak çizelgedede o değişsin diğer harfler içinde geçerlidir. yardımlarınızı bekliyorum tekrar teşekkürler,

 

[feridunsah]

sayfada a gördüğü yere verdiğimiz ismi ekleme

sayfada a gördüğü yere verdiğimiz ismi ekleme b,c,d,e,f,g de aynı olay geçerlidir yardımlarınız için şimdiden teşekkürler

 

[Orion1]

C9:J39 aralığındaki hücrelere yalnızca kişiye ait harfi giriniz ve sonucu gözlemleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Byte
If Intersect(Target, [C9:I39]) Is Nothing Then Exit Sub
For i = 9 To 12
    If Left(Cells(i, "L").Value, 1) = Target.Value Then
        Target.Value = Cells(i, "M").Value
        Exit Sub
    End If
Next i
        
End Sub

 

[feridunsah]

üstadım zahmetine saol ama herhangi birşey olmuyo ;
birde olayı tam anlatamadım herhalde çizelgede sağda a= m.ceylan b=h.ercan gibi oradaki yani harflerin karşılığındaki isimleri değiştirdiğimde çizelgedeki harflerin yerine kendi otomatik yerleştirsin istiyorum ; a gördüğü yere karşısındaki ismi atsın b gördüğü yere karşısındaki ismi versin tüm sayfya böle atsın istiyorum teşekkürler

 

[Orion1]

08-16 vardiye sütununa a yazın ,veya b yazın sonucu gözlemleyin.veriyi girdikten sonra Enter'e basın.

 

[feridunsah]

üstad öncelikle çok teşekkürler saolasın ama benim istediğim tam tersi olacak tablo dışındaki yere a nın karşılığına yazdığım ismi tabloda a gördüğü yerlere atacak biçimde butonla da olabilir

 

[Orion1]

üstad öncelikle çok teşekkürler saolasın ama benim istediğim tam tersi olacak tablo dışındaki yere a nın karşılığına yazdığım ismi tabloda a gördüğü yerlere atacak biçimde butonla da olabilir

M sütununa istetdiğniz isimi giriniz.
Ekli dosyayı inceleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Byte, hucre As Range, son_sat As Long
On Error GoTo hata
son_sat = Cells(65536, "M").End(xlUp).Row
If son_sat < 9 Then Exit Sub
If Intersect(Target, Range("M9:M" & son_sat)) Is Nothing Then Exit Sub
For Each hucre In Range("C9:I39")
    If Left(Target.Offset(0, -1), 1) = hucre.Value Then
        hucre.Value = Target.Value
    End If
Next
hata:
End Sub

 

[feridunsah]

üstad şimdi istediğim olmuş ellerin dert görmesin teşekkürler bir sorum daha olacak konuyla ilgili olarak
bu m sütununa e.f.g.h gibi alta doğru eklediğimdede bu formül devam edermi yani daha çok isim içinde geçerlimi

 

[Orion1]

üstad şimdi istediğim olmuş ellerin dert görmesin teşekkürler bir sorum daha olacak konuyla ilgili olarak
bu m sütununa e.f.g.h gibi alta doğru eklediğimdede bu formül devam edermi yani daha çok isim içinde geçerlimi

Evet alta dağa isim ekleyebilirsiniz.Kodlar yine çalışacaktır.
İsterseniz bir deneme yapabilirsiniz.

 

[feridunsah]

üstad kusura kalma sana çok yük oluyorum ama olay şöyle
şimdi ben bu tabloyu tüm yıl için ayrı ayrı düzenlicem onun için harflerin yerleri her ay için değişebilir tabloda yani herhangi bir yerde a yada b yada c gibi olsa bile bu harfleri gördüğü yere ismi yazsın diyorum yani yer farketmesin tablo içinde gibi mümkünse teşekkürler

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Byte, hucre As Range
On Error GoTo hata
If Not Intersect(Target, Range("A1:I45")) Is Nothing Then Exit Sub
For Each hucre In Range("C9:I39")
    If Left(Target.Offset(0, -1), 1) = hucre.Value Then
        hucre.Value = Target.Value
    End If
Next
hata:
End Sub

 

[feridunsah]

üstad tablo dışındaki m sütununa e ve f gibi sütunlara değişik isimler ekledim tabloda herhangi bir yere bu e ve f harflerini yazdığımda ismi almadı yardımların için tekrar teşekkürler

 

[feridunsah]

vermiş olduğun code vba ya yapıştırdım önceki vermiş olduğun code yi sildim fakat değişiklik olmadı

 

[Orion1]

üstad tablo dışındaki m sütununa e ve f gibi sütunlara değişik isimler ekledim tabloda herhangi bir yere bu e ve f harflerini yazdığımda ismi almadı yardımların için tekrar teşekkürler

Öyleyse ,ben çalıştırdığımda niye çalışıyor?

 

[feridunsah]

tamam şimdi olmuş elin kolun dert görmesin teşekkürler çok saol

 

[feridunsah]

bu code hocam buton yaparak yapamayızmı acaba eğer fazla oluyosun dersen bu soruyu sormadım zannet özür

 

[Orion1]

bu code hocam buton yaparak yapamayızmı acaba eğer fazla oluyosun dersen bu soruyu sormadım zannet özür

Butona basınız değiştirilecek kutucuğa bir harf yazınız diğer kutucuğa isim yazınız ve butona basınız.
Ekli dosyayı inceleyiniz.

Private Sub CommandButton1_Click()
Dim hucre As Range
If TextBox1.Value = Empty Then
    MsgBox "Bir harf girmelisiniz.!", vbCritical
    TextBox1.SetFocus
    Exit Sub
End If
If TextBox2.Value = Empty Then
    MsgBox "Bir İsim Girmelisiniz..!!", vbCritical
    TextBox1.SetFocus
    Exit Sub
End If
For Each hucre In Range("C9:J39")
    If hucre.Value = TextBox1.Value Then
        hucre.Value = TextBox2.Value
    End If
Next
MsgBox "İşlem Tamamlandı..!!", vbOKOnly + vbInformation
End Sub

 

[feridunsah]

üstad ellerine kollarına sağlık güzel oldu birde bunu bütün yılın aylarına göre uyguluyabilirsem tam süper olacak acaba çizelge 4 lü bunu üçlü vardiya çizelgesine uygularsam formülde problem olurmu acaba

 

[Orion1]

üstad ellerine kollarına sağlık güzel oldu birde bunu bütün yılın aylarına göre uyguluyabilirsem tam süper olacak acaba çizelge 4 lü bunu üçlü vardiya çizelgesine uygularsam formülde problem olurmu acaba

Değiştirme C9:J39 aralığında yapılıyor.Bu aralığın dışında kodlar çalışmamaktadır.

 

[feridunsah]

hocam bu tabloda hata var aynı saat vardiyasından iki tane var 08:16.00 vardiyası iki adet onun birini silipde öle formülü uygulasak sana zahmet birde ben bu kodu değiştiremezmiyim acaba şifrelimi bu kodlar