if problemi

[cosarx]

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 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...

 

[bedersu]

mrb

Kardeş makronu şu şekilde değiştir:

Sub diger_hucre()


Set s1 = Sheets("sheet1")
Set s2 = Sheets("sheet2")
a = WorksheetFunction.CountA(s2.Rows("1:1"))

If s1.Cells(1, 1).Value = "x" Then
s2.Cells(1, a + 1).Value = "1"

ElseIf s1.Cells(1, 1).Value = "y" Then
s2.Cells(1, a + 1).Value = "0"

End If

End Sub

 

[cosarx]

tesekkur

yardımalrın için binlerce tesekkurler bedersu....