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

[aborinas]

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.

 

[turist]

Sayın @aborinas
Forumumuza hoş geldiniz.
Sorunuzu kendi hazırladığınız bir "örnek" excel dosyası ekleyerek sorarsanız, daha hızlı ve doğru cevaplar bulabilirsiniz.
Örnek excel dosyası ekleme hakkında bilgi edinmek isterseniz:
https://www.excel.web.tr/threads/soru-ile-ilgili-oernek-excel-dosyasi-ekleme.174755/ bakınız.

 

[aborinas]

Excel Dosyası

 

[aborinas]

Örnek dosyayı ekledim. Bakıp inceleyecek ve yardımcı olacak arkadaşlara teşekkürler.

 

[YUSUF44]

Ö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:

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

 

[aborinas]

Ö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:

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]

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.

 

[aborinas]

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.

 

[aborinas]

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, [D333], 0) + 2
Buraya da satır = WorksheetFunction.Match(tarih2, [D333], 0) + 2
Cells(satır, sütun) = ad
End Sub

 

[YUSUF44]

Dosya çözümü için örnek dosyayı tekrar yükler misiniz?

 

[aborinas]

Dosya çözümü için örnek dosyayı tekrar yükler misiniz?

Hocam örnek dosyayı yükledim.

https://www.dosyaupload.com/j2fD

 

[YUSUF44]

Aşağıdaki kodu deneyiniz:

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

 

[aborinas]

Hocam harikasınız sonsuz teşekkürlerimi sunuyorum size ve site ailesine...