İsmail Küçükşengün
Özel Üye
- Katılım
- 31 Ağustos 2005
- Mesajlar
- 1,534
- Excel Vers. ve Dili
- Excel 2003 - Türkçe
Mehabalar;
Aşağıdaki kullandığım kodda, kaydedilen veriler, ilk boş satıra değil de, 2. boş satıra kaydediyor.
Sub aktar()
On Error GoTo son
Set s1 = Sheets("liste")
Set s2 = Sheets("giriş")
s2.Range("b5:b500").ClearContents
s2.Range("b5:b500").ClearContents
s2.Range("b5:b500").ClearContents
satir = s1.Range("a1:a500").Find(s2.[A1]).Row
kolon = s1.Range("a1:a500").Find(s2.[A1]).Column
For X = 1 To 50
s2.Cells(X + 2, 2) = s1.Cells(satir, kolon + X - 1)
Next X
Exit Sub
son:
MsgBox "Aranan Kayıt Bulunamadı"
End Sub
Kaydedilmek istenen verilerin ilk boş satıra kaydı nasıl sağlanır?
Şimdiden Teşekkürler...
Aşağıdaki kullandığım kodda, kaydedilen veriler, ilk boş satıra değil de, 2. boş satıra kaydediyor.
Sub aktar()
On Error GoTo son
Set s1 = Sheets("liste")
Set s2 = Sheets("giriş")
s2.Range("b5:b500").ClearContents
s2.Range("b5:b500").ClearContents
s2.Range("b5:b500").ClearContents
satir = s1.Range("a1:a500").Find(s2.[A1]).Row
kolon = s1.Range("a1:a500").Find(s2.[A1]).Column
For X = 1 To 50
s2.Cells(X + 2, 2) = s1.Cells(satir, kolon + X - 1)
Next X
Exit Sub
son:
MsgBox "Aranan Kayıt Bulunamadı"
End Sub
Kaydedilmek istenen verilerin ilk boş satıra kaydı nasıl sağlanır?
Şimdiden Teşekkürler...