otomatik veri doldurma

[fcakir]

ben şu şekilde giden bir yazı hazırlamak istiyorum: yardımcı olurmusunuz.

abc1@def.com
abc2@def.com
abc3@def.com
abc4@def.com
.
.
.
.

 

[Erdal]

merhabalar
A1 hücresine
="abc"&SATIR()&"@def.com" yazınız. Ve formülünüzü aşağıya doğru çekiniz.
iyi çalışmalar

 

[Seyit Tiken]

Bu şekilde uygulayabilirsiniz.

Sub Düğme1_Tıklat()
For s = 1 To 30
Cells(s, 1).Value = "abc" & s & "@def.com"
Next
End Sub

 

[fcakir]

somer ve seyit tiken arkadaşlar,

çok teşekkür ederim. Bir sıkıntımızı giderdiniz.