• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

A

aborinas

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.
 
Örnek dosyayı ekledim. Bakıp inceleyecek ve yardımcı olacak arkadaşlara teşekkürler.
 
Ö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
 
YUSUF44' Alıntı:
Ö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
Genişletmek için tıkla ...
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?
 
aborinas' Alıntı:
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?
Genişletmek için tıkla ...
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.
 
YUSUF44' Alıntı:
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.
Genişletmek için tıkla ...
Ç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.
 
YUSUF44' Alıntı:
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.
Genişletmek için tıkla ...

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
 
Dosya çözümü için örnek dosyayı tekrar yükler misiniz?
 
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
 
Hocam harikasınız sonsuz teşekkürlerimi sunuyorum size ve site ailesine...
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst