• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü hücre doluysa şu hücredeki veriyi getir makrosu

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
KemalDurmuş

KemalDurmuş

Yeni Üye
Katılım
17 Eki 2022
Mesajlar
64
Çözümler
3
Aldığı beğeni
16
Excel V
Office 2010 TR
Konu Sahibi
Merhaba
Eğer formülü kullanmak yerine makro ile nasıl yapabiliriz.
örnek dosyam ektedir.
Saygılarımla
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Çözüm
Caylak
Merhaba, öncelikle örnek dosyanızın açıklaması nedir bilemedim?
Yani neredeki hücre doluysa nereye ne yazacak ?
Kısaca sorunuzdan yola çıkarak;


Thisworkbook = Bu çalışma Kitabı
Worksheets("FilancaSayfa") = sayfa adı
Range("A1") = Bakılacak hücre adresi ( başvuru adresi )

sub KontrolEt()
if Thisworkbook.Worksheets("FilancaSayfa").range("A1")="" then (eğer başvuru adresi boş ise)
Thisworkbook.Worksheets("FilancaSayfa").range("B1") = "BOŞ" (B1 hücresine BOŞ yaz)
else (eğer başvuru adresi boş değilse)
Thisworkbook.Worksheets("FilancaSayfa").range("B1") = "DOLU" (B1 hücresine DOLU yaz)
end if
end sub

bu şekilde kontrol edip istediğiniz veriyi istediğiniz yere aktarabilirsiniz.
Tarihe göre sırala Oylara göre sırala
Merhaba, öncelikle örnek dosyanızın açıklaması nedir bilemedim?
Yani neredeki hücre doluysa nereye ne yazacak ?
Kısaca sorunuzdan yola çıkarak;


Thisworkbook = Bu çalışma Kitabı
Worksheets("FilancaSayfa") = sayfa adı
Range("A1") = Bakılacak hücre adresi ( başvuru adresi )

sub KontrolEt()
if Thisworkbook.Worksheets("FilancaSayfa").range("A1")="" then (eğer başvuru adresi boş ise)
Thisworkbook.Worksheets("FilancaSayfa").range("B1") = "BOŞ" (B1 hücresine BOŞ yaz)
else (eğer başvuru adresi boş değilse)
Thisworkbook.Worksheets("FilancaSayfa").range("B1") = "DOLU" (B1 hücresine DOLU yaz)
end if
end sub

bu şekilde kontrol edip istediğiniz veriyi istediğiniz yere aktarabilirsiniz.
 
Olumlu oy 1 Negatif oyla
Çözüm
Konu Sahibi
Caylak' Alıntı:
Merhaba, öncelikle örnek dosyanızın açıklaması nedir bilemedim?
Yani neredeki hücre doluysa nereye ne yazacak ?
Kısaca sorunuzdan yola çıkarak;


Thisworkbook = Bu çalışma Kitabı
Worksheets("FilancaSayfa") = sayfa adı
Range("A1") = Bakılacak hücre adresi ( başvuru adresi )

sub KontrolEt()
if Thisworkbook.Worksheets("FilancaSayfa").range("A1")="" then (eğer başvuru adresi boş ise)
Thisworkbook.Worksheets("FilancaSayfa").range("B1") = "BOŞ" (B1 hücresine BOŞ yaz)
else (eğer başvuru adresi boş değilse)
Thisworkbook.Worksheets("FilancaSayfa").range("B1") = "DOLU" (B1 hücresine DOLU yaz)
end if
end sub

bu şekilde kontrol edip istediğiniz veriyi istediğiniz yere aktarabilirsiniz.
Genişletmek için tıkla...
Merhaba
Öncelikle cevap verme nezaketinde bulunduğunuz için teşekkür ederim.
Daha anlaşılır bir şekilde izah edemediğim için ve sizi zahmete soktuğum için özür dilerim,
Konu çözüme kavuşmuştur.
 
Olumlu oy 0 Negatif oyla
KemalDurmuş' Alıntı:
Merhaba
Öncelikle cevap verme nezaketinde bulunduğunuz için teşekkür ederim.
Daha anlaşılır bir şekilde izah edemediğim için ve sizi zahmete soktuğum için özür dilerim,
Konu çözüme kavuşmuştur.
Genişletmek için tıkla...
KemalDurmuş rica ederim, biz bizeyiz. İyi günler...
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst