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

İhsan Tank · 28 Temmuz 2011

mutluedenercan' Alıntı:
ö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

kodu gönderseniz yada dosyayı ekleseniz ezbere bir şeyler yaptırmaya çalışıyorsunuz bizlere

mutluedenercan · 28 Temmuz 2011

İhsan Tank' Alıntı:
kodu gönderseniz yada dosyayı ekleseniz ezbere bir şeyler yaptırmaya çalışıyorsunuz bizlere

Ekledim

verdiğiniz kodları buraya eklayince çalışmadı

İhsan Tank · 28 Temmuz 2011

mutluedenercan' Alıntı:
Ekledim

verdiğiniz kodları buraya eklayince çalışmadı

açıklama yok mu_?

mutluedenercan · 29 Temmuz 2011

eklediğim basit butonlu exele
sizin verdiğiniz kodlar ı ilave edecem (a stununda mesela a1 girilince c1 merhaba yaz
a2 girilince c1 2.satır da girildi yaz )

gibi
sizin verdiğiniz kodlar benim bu eklediğim exelde çelışmarı ...ama hiç kod olmuyan boş exelde çalışıyor

teşekkür

İhsan Tank · 29 Temmuz 2011

mutluedenercan' Alıntı:
eklediğim basit butonlu exele
sizin verdiğiniz kodlar ı ilave edecem (a stununda mesela a1 girilince c1 merhaba yaz
a2 girilince c1 2.satır da girildi yaz )

gibi
sizin verdiğiniz kodlar benim bu eklediğim exelde çelışmarı ...ama hiç kod olmuyan boş exelde çalışıyor

teşekkür

merhaba
module'deki kodu bununla değiştirin.

Kod:

Option Explicit
Sub yaz()
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

mutluedenercan · 4 Ağustos 2011

İlginize teşekkür ederim ama çalışmadı

dediğiniz gibi kod a ekledim
çalışmadı

mutluedenercan · 4 Ağustos 2011

yani ekledim derken...
sonverdiğiniz ( önceki verdiğinizi sildim) kodları benim tek düğmeye makro atanmış sayfanın koduna ilave ettim çalışmadı

İhsan Tank · 4 Ağustos 2011

mutluedenercan' Alıntı:
yani ekledim derken...
sonverdiğiniz ( önceki verdiğinizi sildim) kodları benim tek düğmeye makro atanmış sayfanın koduna ilave ettim çalışmadı

kitabınızdaki tüm makroları silin ve yukarıdaki makroyu bir module kopyalayın ve bir buton'a atayarak kullanın
buton'a atamak için lütfen tıklayın

mutluedenercan · 4 Ağustos 2011

bir modüle derken kod bölümünemi

ayrıca düğmeye tanıtmamı istemşsinizde....
hücreye bilgi olunca yazıyo düğme gerekmiyorki
anlamadım...
öncaki eklediğimi ğördüyseniz...
basit bir düğmeli kitab...
sizin kodları ilaveettim ...
düğme eklememe neden gerek oldu

teşekkür

İhsan Tank · 4 Ağustos 2011

mutluedenercan' Alıntı:
bir modüle derken kod bölümünemi

ayrıca düğmeye tanıtmamı istemşsinizde....
hücreye bilgi olunca yazıyo düğme gerekmiyorki
anlamadım...
öncaki eklediğimi ğördüyseniz...
basit bir düğmeli kitab...
sizin kodları ilaveettim ...
düğme eklememe neden gerek oldu

teşekkür

arkadaş ya anlattıklarımı anlamıyorsun yada gerçekten bizim yazdıklarımızı umursamıyorsun.
diyorum ki tüm kodları silin ve bir butona atayın ama anlamadınız bu sefer de sizin dosyanızdaki şekli ile anlatayım
module'de bulunan sss adlı bir kod var ya onu silin benim yukarıda verdiğim kod'u onun yerine yapıştırın.
sonra sayfada kullandığınız

Kod:

Private Sub CommandButton1_Click()
[COLOR="Red"]sss[/COLOR]
End Sub

bu kod'un yerine

Kod:

Private Sub CommandButton1_Click()
[COLOR="red"]yaz[/COLOR]
End Sub

olarak ekleyin ve deneyin. umarım şimdi anlatabilmişimdir.

mutluedenercan · 5 Ağustos 2011

Hocam anladım sizi fakat, ben izah edmedim sanırım...
sss makrosu da lağzım; onu sil yerine bu kodu yaz dedinz ( yaptım bakın ekledim hata verdi
yani sss makrosunu silip eklediğim halde sizin kod hata veriyor dosyayı ekledim)

benim izzah edemediğim bu sss makrosu o düğmede ekli haliyle sizin kodları ileve edebilmeyi soruyordum ( o sss makrosuda lağzım)

eklediğim dosyada sizin dediğiniz gibi sss silinip yerine o kodları koydum hata verdi dosya ektedir ( 2003 kullanıyom ilgisi varmı ondanmı )

teşekkür
(doya ekledim dedim ama buradan eklenmiyor sanırım)

İhsan Tank · 5 Ağustos 2011

benim verdiğim kod'u senin kod'unla aynı anda mı çalıştıracaksınız._?
ayrıca dosya ekleyemedim demişsiniz siteye dosya ekleyebilirsiniz bunda bir engel bulunmuyor

mutluedenercan · 5 Ağustos 2011

eVET Hocam, aynı anda çalışmasını sormuştum..

dosya eklemek için yeni konu açmak gerekiyor..buyazdığım cevap yerinde dosya ekleme yok sanırım..

ilk konu açışımda eklemiştim...

İhsan Tank · 5 Ağustos 2011

mutluedenercan' Alıntı:
eVET Hocam, aynı anda çalışmasını sormuştum..

dosya eklemek için yeni konu açmak gerekiyor..buyazdığım cevap yerinde dosya ekleme yok sanırım..

ilk konu açışımda eklemiştim...

önce sorunuza yanıt vereyim
sayfadaki kodu

Kod:

Private Sub CommandButton1_Click()
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
sss
End Sub

bununla değişin ve deneyin.
ayrıca dosya eklemeyi 22. mesajda yapmışsınız.
bende size şöyle tarif edeyim hızlı cevap gönderin yanında gelişmiş moda dön butonu var ona tıklayın altta ilave seçenekler var oradan dosya ekleme yapabilirsiniz.

mutluedenercan · 5 Ağustos 2011

1.mesaj çalıştı

hocam ilk mesajiverdi sedece

a1 e girdim verdi
a2 e girdim mesaj değişmedi
a3 dede mesaj değişmedi

İhsan Tank · 5 Ağustos 2011

mutluedenercan' Alıntı:
hocam ilk mesajiverdi sedece

a1 e girdim verdi
a2 e girdim mesaj değişmedi
a3 dede mesaj değişmedi

nasıl olmuyor
önce a1'e yazdım
butona tıkladım C1'de ben yazdı
sonra
A1
A2'ye yazdım
butona tıkladım C1'de ne oluyor yazdı
sonra
a1
a2
a3'e yazdım
butona tıkladım C1'de bak işte yazdı

mutluedenercan · 5 Ağustos 2011

Hocam...
a stununa değer girince butondan bağımsız d1 e onları yazacak

buton silmeye yarıycak

yani ben a1 değer girecem (butona basmadan) d1 de bir yazı görecem
a2 değer girecem (butona basmadan) d1 de bir başka yazı görecem
a3 değer girecem (butona basmadan) d1 de bir başka yazı görecem
en sonra sil butonuna basınca silecek
bu a50 ye kadar sürecek( koduöğrenince ben 50 ye kadar yazıacağı çoğaltırım)

İhsan Tank · 5 Ağustos 2011

mutluedenercan' Alıntı:
Hocam...
a stununa değer girince butondan bağımsız d1 e onları yazacak

buton silmeye yarıycak

yani ben a1 değer girecem (butona basmadan) d1 de bir yazı görecem
a2 değer girecem (butona basmadan) d1 de bir başka yazı görecem
a3 değer girecem (butona basmadan) d1 de bir başka yazı görecem
en sonra sil butonuna basınca silecek
bu a50 ye kadar sürecek( koduöğrenince ben 50 ye kadar yazıacağı çoğaltırım)

neden butonla istediniz o zaman bu kodu baştan vermiştik zaten size

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

buyrun kod bu

mutluedenercan · 5 Ağustos 2011

Hocam çalıştı teşekkür...

baştan da bu haliyle yani dügmeli haline ilave olarak istedim...sonra verdiğiniz kod boş sayfada çalıştı benim istediğim düğmeli sayfada çalışmadı bunu sordum...

size yanlış anlattıysam kusura bakmayım

Şimdi ben bunu 50. satra kadar yazar hale getirmek için

If Range("A1") <> "" And Range("A2") <> "" _
And Range("A3") <> "" And Range("A4") <> ""
Range("D1") = "4.satır yazıldı"
ElseIf Range("A1") <> "" And Range("A2") <> "" And Range("A3") <> "" Then range("D1") = "Ne Oluyor"
gibi 4. satırı ekledim her hücre yazmasını eklerken başa ifli kodu bu halegetirip aşşağa doğru diger kodları değiştincemmi yol bumu

teşekkür

İhsan Tank · 5 Ağustos 2011

mutluedenercan' Alıntı:
Hocam çalıştı teşekkür...

baştan da bu haliyle yani dügmeli haline ilave olarak istedim...sonra verdiğiniz kod boş sayfada çalıştı benim istediğim düğmeli sayfada çalışmadı bunu sordum...

size yanlış anlattıysam kusura bakmayım

Şimdi ben bunu 50. satra kadar yazar hale getirmek için

If Range("A1") <> "" And Range("A2") <> "" _
And Range("A3") <> "" And Range("A4") <> ""
Range("D1") = "4.satır yazıldı"
ElseIf Range("A1") <> "" And Range("A2") <> "" And Range("A3") <> "" Then range("D1") = "Ne Oluyor"
gibi 4. satırı ekledim her hücre yazmasını eklerken başa ifli kodu bu halegetirip aşşağa doğru diger kodları değiştincemmi yol bumu

teşekkür

bunu 50 satır yapmak mantıksız gibi geliyor bana.
neler yazılacak siz onları söyleyin belki başka bir çözümü vardır. If li kod tavsiye etmem.
ayrıca ben size şöyle söyliyeyim.
if'li kod ile yapacaksanız kontrol yaptırmayın.
yani
a1 <>"" ali
A2<>"" veli
kısaca yok a1 boş ama a2 dolu bunu kontrol etmesi uzun sürer bence

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

İhsan Tank

Misafir

mutluedenercan

Ekli dosyalar

İhsan Tank

Misafir

mutluedenercan

İhsan Tank

Misafir

mutluedenercan

mutluedenercan

İhsan Tank

Misafir

mutluedenercan

İhsan Tank

Misafir

mutluedenercan

İhsan Tank

Misafir

mutluedenercan

İhsan Tank

Misafir

mutluedenercan

Ekli dosyalar

İhsan Tank

Misafir

mutluedenercan

İhsan Tank

Misafir

mutluedenercan

İhsan Tank

Misafir