if else

[domino]

sorum aslında çok basit
sayfa 1 a2 hücresi dolu ise sayfa 2 ye veriyi eklesin
fakat sayfa 2 de dolu ise sayfa 3 e veriyi eklesin

 

[askm]

If Sheets("Sayfa2").Range("A2") <> Empty Then
'Sayfa3 e Eklenecek kodlar
ElseIf Sheets("Sayfa1").Range("A2") <> Empty Then
'Sayfa2 e Eklenecek kodlar
End If

 

[domino]

pardon sayfa1 a2 boş ise veriyi sayfa 1 e kaydedecek

 

[ÖmerFaruk]

Sorunuzu şöyle düzelttim.
Sayfa1 a2 boş ise sayfa1e, dolu ise
Sayfa2 a2 boş se sayfa2 A2ye doluysa sayfa3 A2 ye yazsın.

If IsEmpty(Worksheets("Sayfa1").Cells(2, 1)) Then
  Worksheets("Sayfa1").Cells(2, 1) = Veri 'ya da sizin kodlarınız
Else
    If IsEmpty(Worksheets("Sayfa2").Cells(2, 1)) Then
        Worksheets("Sayfa2").Cells(2, 1) = Veri 'ya da sizin kodlarınız
    Else
        Worksheets("Sayfa3").Cells(2, 1) = Veri 'ya da sizin kodlarınız
    End If
End If

 

[domino]

teşekkür ederim