• DİKKAT

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

macro yardımmmm

  • Konbuyu başlatan Konbuyu başlatan cosarx
  • Başlangıç tarihi Başlangıç tarihi
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...
 
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.
 
tesekkurler kelkitli

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