• DİKKAT

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

hücrede bilgi olunca diğer hücreye yaz

M

mutluedenercan

Katılım
9 Aralık 2009
Mesajlar
532
Excel Vers. ve Dili
2007,5
değerli Hocalarım ,
kod sayfasına nasıl bir kodla başlıycam (privete sub ilemi )

neyse boş kod sayfasına yazılacak şekilde verirseniz sevinirim

A1 hücresine değer yazılınca d1 hücresine örneğin " ben "
A2 hücresine değer yazılınca gene d1 hücresine örnağin " ne oluyo"
A3 hücresine değer yazılınca gene d1 hücresine örnağin " bak işte"
bu böyle devam edecek , kodu öğrenince ben çoğaltırım


Böylece d1 hücresinde değişken bir yazı gelecek

Teşekkürler
( kodların ne anlama geldğini de açıklarsanız bende öğrenirim..
mesela sub ile başlayınca ne anlamı var gibi)

2. yol bunu her defasında mesaj olarak veren halini ayrı kod olarak verirmisiz

3. makro güvenliğini düşürmeden her açışta soran "makroları etkinleştiremmi"
sorusunu nasıl kaldırırız

TEŞEKKÜR
 
Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayınız.

Kod: 
'Sayfada değişiklik olduğunda çalışacak kod bloğu
Private Sub Worksheet_Change(ByVal Target As Range)
'hata olduğunda son paragrafına git
On Error GoTo son
'değişiklik A sütununda değilse çık
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
If Target.Row = 1 Then
    [d1] = "1. satır ben"
ElseIf Target.Row = 2 Then
    [d1] = "2. satır, ne oluyor?"
ElseIf Target.Row = 3 Then
    [d1] = "3. satır Bak işte"
Else
    [d1] = "kontroller bitti daha ne yazayım?"
End If
son:
End Sub
 

Ekli dosyalar

mutluedenercan' Alıntı:
değerli Hocalarım ,
kod sayfasına nasıl bir kodla başlıycam (privete sub ilemi )

neyse boş kod sayfasına yazılacak şekilde verirseniz sevinirim

A1 hücresine değer yazılınca d1 hücresine örneğin " ben "
A2 hücresine değer yazılınca gene d1 hücresine örnağin " ne oluyo"
A3 hücresine değer yazılınca gene d1 hücresine örnağin " bak işte"
bu böyle devam edecek , kodu öğrenince ben çoğaltırım


Böylece d1 hücresinde değişken bir yazı gelecek

Teşekkürler
( kodların ne anlama geldğini de açıklarsanız bende öğrenirim..
mesela sub ile başlayınca ne anlamı var gibi)

2. yol bunu her defasında mesaj olarak veren halini ayrı kod olarak verirmisiz

3. makro güvenliğini düşürmeden her açışta soran "makroları etkinleştiremmi"
sorusunu nasıl kaldırırız

TEŞEKKÜR
Genişletmek için tıkla ...

öncelikle makro ayarlarını düşürmelisiniz
buyrun ayrıntı resim burada
kod'u sayfanın kod bölümüne
Kod: 
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A100")) Is Nothing Then Exit Sub
If Range("A1") <> "" Then ' A1 hücresi eşit değil ise boşluğa
Range("D1") = "Ben" 'D1 hücresine yaz
MsgBox Range("D1") 'mesaj olarak göster
End If
If Range("A2") <> "" Then ' A2 hücresi eşit değil ise boşluğa
Range("D1") = "Ne Oluyor" 'D1 hücresine yaz
MsgBox Range("D1") 'mesaj olarak göster
End If
If Range("A3") <> "" Then ' A3 hücresi eşit değil ise boşluğa
Range("D1") = "Bak İşte" 'D1 hücresine yaz
MsgBox Range("D1") 'mesaj olarak göster
End If
End Sub
kod'u kopyaladığınızda yeşil olan yerlerde açıklama mevcut.
Pravite Genel'de Sayfa'da ve Userform'da kullanılır.
sub prosedürü ise module'de kullanılır.
sayfaya ait kodları ve uygulamaları için tıklayın
 
Necdet Hocam sizin yanıt verdiğinizi görmedim
alternatif olsun
 
Her ikiside olur
yanlız Sn İhsan beyinki bir hücreye değer yasınca üç mesaji enterle geçmeden diğer hücreye yazamıyon

Makro güvenliğini düşürmeden açılışta makro etkinleştiremmi sorusunu sordurmamanın yolu yok mu demıştim

Teşekkürler
 
mutluedenercan' Alıntı:
Her ikiside olur
yanlız Sn İhsan beyinki bir hücreye değer yasınca üç mesaji enterle geçmeden diğer hücreye yazamıyon

Makro güvenliğini düşürmeden açılışta makro etkinleştiremmi sorusunu sordurmamanın yolu yok mu demıştim

Teşekkürler
Genişletmek için tıkla ...

öyle bir imkanınız bulunmamakta
doğru mesaj çıksın istediğiniz bende hücreye yazmadım msgbox ile yaptım

kolay gelsin
:yazici:
 
Peki bu kolarla a stununda henüz bişi yazılı değilse "???" yaz gibi bi kod nasıl ilave ederim

Teşekkür
 
Peki bu kolarla a stununda henüz bişi yazılı değilse, gene d1 hücresine "???" yaz gibi bi kod nasıl ilave ederim

Teşekkür
2 - d1 deki yazı yanıp sönebilirmi
 
mutluedenercan' Alıntı:
Peki bu kolarla a stununda henüz bişi yazılı değilse, gene d1 hücresine "???" yaz gibi bi kod nasıl ilave ederim

Teşekkür
2 - d1 deki yazı yanıp sönebilirmi
Genişletmek için tıkla ...

kod'u bununla değiştirin
Kod: 
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A100")) Is Nothing Then Exit Sub
If Range("A1") <> "" And Range("A2") <> "" _
And Range("A3") <> "" Then ' A3 hücresi eşit değil ise boşluğa
Range("D1") = "Bak İşte" 'D1 hücresine yaz
ElseIf Range("A1") <> "" And Range("A2") <> "" Then ' A2 hücresi eşit değil ise boşluğa
Range("D1") = "Ne Oluyor" 'D1 hücresine yaz
ElseIf Range("A1") <> "" Then ' A1 hücresi eşit değil ise boşluğa
Range("D1") = "Ben" 'D1 hücresine yaz
Else
Range("D1") = "???"
End If
End Sub
yanıp sönme işlemini lütfen ayrı bir konu açarak sorunuz
 
Option Explicit

kodunu eklemşsiniz anlamı nedir

boş ise ??? yaz koşulunu göremedim

teşekkür
 
mutluedenercan' Alıntı:
Option Explicit

kodunu eklemşsiniz anlamı nedir

boş ise ??? yaz koşulunu göremedim

teşekkür
Genişletmek için tıkla ...

takıntıdır o :)
değişkenleri mutlaka tanımlaman gerektiğini söyler kodu çalıştırmaz. kod hata verir
Kod: 
Else
Range("D1") = "???"
işte bu ya :)

açıklama yazmayı unutmuşum sanırım :)
rica ederim
:yazici:
 
sn ihsan bey ....gönmerim teşekkür

ama
bu kodları ...
dügmeye makro atadığım.kodların altına ileve edince neden çalışmadı..

ayrıca
Option Explicit
kodu eklemşsiniz o nedir demiştim ona cvap alamadım
 
bu kodları ...
dügmeye makro atadığım.kodların altına ileve edince neden çalışmadı..
buna açıklık getirmemişsiniz

boş sayfada çalıştı dediğim yere ilave ettim çalışmadı
teşekkür
 
özürdilerim ...tam anlatamadım...

tamam kod çalışıyor...
peki zeten kod olan bir yere ilave edince neden çalışmıyor onu anlamadım
yani başka iş yapan bir yare bunu da kodların altına ilave nasıl edirm..
ben olduğu gibi ilave ettim çalışmadı kodun altına ileve ederken farklı şekildemi yazılması gerekir

yardımcı olursanız
teşekkür
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst