Soru Kaynak Hücre Değişse Bile Değer Hücresi Dolu ise Sabit Kalsın

Katılım
8 Aralık 2009
Mesajlar
44
Excel Vers. ve Dili
excel 2016
Merhabalar, "kaynak hücreye" yeni veriler girildikçe "değer hücresi" eğer dolu ise sabit kalsın değişmesin ve "kaynak hücredeki" değer başka bir "değer hücresine" yazılsın. Bu konuda yardımcı olacak arkadaş(lar)a şimdiden teşekkürlerimi sunuyorum.
 
Katılım
8 Aralık 2009
Mesajlar
44
Excel Vers. ve Dili
excel 2016
Örnek dosyayı ekledim. Bakıp inceleyecek ve yardımcı olacak arkadaşlara teşekkürler.
 

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,073
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Öncelikle bu çözümün düzgün çalışması için sol tarafta kullandığınız verilerle sağ tarafta kullandığınız verilerin birebir aynı olması gerekmektedir. Örneğin F2 hücresinde plakanın sonunda fazladan bir boşluk var, bunun gibi farklılıklar olmamalıdır.

Aşağıdaki kodları bir modüle kopyalayıp deneyin. Makroyu çalıştırmak için sayfaya bir düğme ekleyip makroyu atayabilirsiniz:

Kod:
Sub kaydet()
Set ad = [B2]
Set plaka = [B3]
Set tarih = [B4]
sütun = WorksheetFunction.Match(plaka, [E2:G2], 0) + 4
satır = WorksheetFunction.Match(tarih, [D3:D33], 0) + 2
Cells(satır, sütun) = ad
End Sub
 
Katılım
8 Aralık 2009
Mesajlar
44
Excel Vers. ve Dili
excel 2016
Öncelikle bu çözümün düzgün çalışması için sol tarafta kullandığınız verilerle sağ tarafta kullandığınız verilerin birebir aynı olması gerekmektedir. Örneğin F2 hücresinde plakanın sonunda fazladan bir boşluk var, bunun gibi farklılıklar olmamalıdır.

Aşağıdaki kodları bir modüle kopyalayıp deneyin. Makroyu çalıştırmak için sayfaya bir düğme ekleyip makroyu atayabilirsiniz:

Kod:
Sub kaydet()
Set ad = [B2]
Set plaka = [B3]
Set tarih = [B4]
sütun = WorksheetFunction.Match(plaka, [E2:G2], 0) + 4
satır = WorksheetFunction.Match(tarih, [D3:D33], 0) + 2
Cells(satır, sütun) = ad
End Sub
Cevabınız için teşekkür ederim fakat kodu çalıştıramadım. Hocam düzeltmeleri de yaptım yine de çalıştıramadım. Siz çalıştırmışsanız dosyayı yükleyebilir misiniz?
 

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,073
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Cevabınız için teşekkür ederim fakat kodu çalıştıramadım. Hocam düzeltmeleri de yaptım yine de çalıştıramadım. Siz çalıştırmışsanız dosyayı yükleyebilir misiniz?
Kodları kopyalayın
Dosyanıza geçin
Alt+F11 yapın
Açılan VBA ekranında Insert menüsünden Module'yi seçin
Açılan sayfaya kodları yapıştırın
Dosyanıza geçin
Dosyaya bir resim/düğme/şekil ekleyin
Eklediğiniz resme/düğmeye/şekle sağ tıklayıp Makro ata deyin
Açılan menüden Kaydet makrosunu seçin ve Tamam deyip çıkın
Artık o resme/düğmeye/şekle her tıkladığınızda makro çalışacak ve mevcut verilere göre tabloya kayıt yapacaktır
Dosyanızı kapatırken Makro İçerebilen Excel Dosyası olarak kaydetmeyi unutmayın.
 
Katılım
8 Aralık 2009
Mesajlar
44
Excel Vers. ve Dili
excel 2016
Kodları kopyalayın
Dosyanıza geçin
Alt+F11 yapın
Açılan VBA ekranında Insert menüsünden Module'yi seçin
Açılan sayfaya kodları yapıştırın
Dosyanıza geçin
Dosyaya bir resim/düğme/şekil ekleyin
Eklediğiniz resme/düğmeye/şekle sağ tıklayıp Makro ata deyin
Açılan menüden Kaydet makrosunu seçin ve Tamam deyip çıkın
Artık o resme/düğmeye/şekle her tıkladığınızda makro çalışacak ve mevcut verilere göre tabloya kayıt yapacaktır
Dosyanızı kapatırken Makro İçerebilen Excel Dosyası olarak kaydetmeyi unutmayın.
ÇO
Adımları aynen uyguladım ve mükemmel oldu. Çok teşekkür ederim hem hızlı cevap verdiğiniz için hem de sağlıklı ve işe yarar bilgi verdiğiniz için.
 
Katılım
8 Aralık 2009
Mesajlar
44
Excel Vers. ve Dili
excel 2016
Kodları kopyalayın
Dosyanıza geçin
Alt+F11 yapın
Açılan VBA ekranında Insert menüsünden Module'yi seçin
Açılan sayfaya kodları yapıştırın
Dosyanıza geçin
Dosyaya bir resim/düğme/şekil ekleyin
Eklediğiniz resme/düğmeye/şekle sağ tıklayıp Makro ata deyin
Açılan menüden Kaydet makrosunu seçin ve Tamam deyip çıkın
Artık o resme/düğmeye/şekle her tıkladığınızda makro çalışacak ve mevcut verilere göre tabloya kayıt yapacaktır
Dosyanızı kapatırken Makro İçerebilen Excel Dosyası olarak kaydetmeyi unutmayın.
Tekrar merhabalar, hocam sayenizde yaptığım bu tablo o günden beri kullanıyorum ve çok işime yarıyor. Ben bunu biraz daha geliştirmek istiyorum. Tekrar yardımcı olursanız sevinirim. Kodu aşağıdaki gibi tekrar düzenlediğimde eksik çalışıyor. B4 tarih hücresi yanına B5 hücresini de tarih hücresi yapmak istiyorum. Yani iki tane tarih hücresi olacak. B4 Hücresine 01.06.2019 ve B5 hücresine 05.06.2019 tarihleri girdiğimde
tabloda;
1.06.2019
2.06.2019
3.06.2019
4.06.2019
5.06.2019
tarihlerine ismi getirsin; ama sadece B4 hücresine tarih girersem ve B5 hücresi boşsa, sadece B4 hücresine isim getirsin.
kodu şu şekilde düzenliyorum ama çalışmıyor.
Sub kaydet()
Set ad = [B2]
Set plaka = [B3]
Set tarih = [B4]
Buraya Set tarih2 = [B5]
sütun = WorksheetFunction.Match(plaka, [E2:G2], 0) + 4
satır = WorksheetFunction.Match(tarih, [D3:D33], 0) + 2
Buraya da satır = WorksheetFunction.Match(tarih2, [D3:D33], 0) + 2
Cells(satır, sütun) = ad
End Sub
 

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,073
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Dosya çözümü için örnek dosyayı tekrar yükler misiniz?
 

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,073
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Aşağıdaki kodu deneyiniz:

PHP:
Sub Kaydet()

Set ad = [B1]
Set plaka = [B2]
Set tarih1 = [B3]
Set tarih2 = [B4]
sut = WorksheetFunction.Match(plaka, [B6:D6], 0) + 1
bas = WorksheetFunction.Match(tarih1, [A7:A36], 0) + 6
bit = WorksheetFunction.Match(tarih2, [A7:A36], 0) + 6
For i = bas To bit
    Cells(i, sut) = ad
Next
End Sub
 
Katılım
8 Aralık 2009
Mesajlar
44
Excel Vers. ve Dili
excel 2016
Hocam harikasınız sonsuz teşekkürlerimi sunuyorum size ve site ailesine...
 
Üst