Karşılaştırma yaparak hücreye gerekli değeri yazdırmak

[sakoz]

Sevgili üstadlar ,

Benim bir sorum olacak.Şimdi tüm illere gönderdiğimiz bir mal var ve bunu taahhüt süremiz var.Yani mesela izmir 0.5 gün , istanbul 1.5 gün , van 4 gibi...

Dosyayı aylık olarak hazırlıyorum ve yaklaşık 10.000-15.000 satır arası oluyor.Bende bu taahhüt kısmını elle manuel olarak girmek zorunda kalıyorum.( 1 , 1.5 , 0.5 , 4 diye...)

Bunu şehir adını sorgulatarak otomatik olarak getirebilirmiyiz..
Bu konuda yardımcı olursanız cok memnun olurum.Şimdiden tşk...

 

[Orion1]

Merhaba.
Otomatik filtre uygulayarakYapabilirsiniz.
Mesela otomatik filterde Şehirden İstanbul'u seçin.Tahhaüt sütununda süzülen verileri Mause ile seçiniz,Ve ilk hücreye değitireceğiniz veriyi girip ctrl+enter tuşlarına basarak hepsini girin.Kolay gelsin.

 

[Orion1]

Merhaba.
Makrolu bir çözüm hazırladım .Umarım işinize yarar.Belki böyle bir şey istemiştiniz.Ekli dosyayı indirip deneyiniz.
İyi çalışmalar.

 

[Seyit Tiken]

Aşağıdaki kodu kendinize uyarlayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 7 And Target.Value = "ADAPAZARI" Then Target.Offset(0, -3) = 1
If Target.Column = 7 And Target.Value = "BURSA" Then Target.Offset(0, -3) = 1
If Target.Column = 7 And Target.Value = "İSTANBUL" Then Target.Offset(0, -3) = 1.5
If Target.Column = 7 And Target.Value = "VAN" Then Target.Offset(0, -3) = 4
End Sub

 

[sakoz]

Sevgili arkadaşlar ,

Makrolu çözüm tam istediğim gibi oldu....Beni çok büyük bir zahmetten kurtardınız...
Çok ama çok teşekkürler...