macro yardımmmm

Katılım
6 Mart 2007
Mesajlar
13
Excel Vers. ve Dili
excel 5.0
arkadaslar yardım lutfen!!!!!!!!

excel sheet1 de a1 hücresine (x) diye yazdığımda sheet2 deki a1 hücresine 1 , yine sheet1 de a1 hücresine (y) diye girdiğim zaman ise sheet 2 deki a1 hücresine sıfır yazmasını istiyorum...bu soylediğimi asagidaki kodla yapabiliyorum:

Set s1 = Sheets("sheet1")
Set s2 = Sheets("sheet2")

If s1.Cells(1, 1).Value = "x" Then
s2.Range("a1").Value = "1"

ElseIf s1.Cells(1, 1).Value = "y" Then
s2.Range("a1").Value = "0"

End If

bu aşamada sorunum şu:
sheet1 'e yazdığım veriyi(x yada y yi) ikinci kez girip butona tıkladığımda ,sheet2 deki a1 hücresindeki bilginin üzerine yazmadan sheet 2 nin (b1) ine yani yatay olarak sağ tarafına yazmasını istiyorum...
 
Katılım
23 Şubat 2007
Mesajlar
1,212
Excel Vers. ve Dili
Excel2003
Zaten aynı soruyu daha önce de sormuş ve cevap almışsınız. Ben yine de dosya ekledim. Cevap veren arkadaşın yazdığı kodları uygulayarak.
 
Katılım
6 Mart 2007
Mesajlar
13
Excel Vers. ve Dili
excel 5.0
tesekkurler kelkitli

cok tesekkurler kelkitli cevabı farketmemişim...
 
Üst