-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Veri Aktarımı
- Konbuyu başlatan excelturk
- Başlangıç tarihi
- Katılım
- 18 Ocak 2008
- Mesajlar
- 12,876
- Excel Vers. ve Dili
- 2003 excell türkçe
ve
2007 excell türkçe
iyi çalışmalar
sayfa1 deki satırı sayfa 2 ye nasıl aktarabilirim?
merhabalar sayfa 1 deki J sütununda cevap boş işe bu satırı komple sayfa 2 ye aktarmak istiyorum başlığıyla birlikte. nasıl komut yazmam gerekiyor? Yardımcı olabilirmisiniz? dosyam ektedir.
Teşekkürler
merhabalar sayfa 1 deki J sütununda cevap boş işe bu satırı komple sayfa 2 ye aktarmak istiyorum başlığıyla birlikte. nasıl komut yazmam gerekiyor? Yardımcı olabilirmisiniz? dosyam ektedir.
Teşekkürler
- Katılım
- 18 Ocak 2008
- Mesajlar
- 12,876
- Excel Vers. ve Dili
- 2003 excell türkçe
ve
2007 excell türkçe
bu kodu denermisiniz.
Kod:
Sub aktar()
Worksheets("Sayfa2").Range("A2:K500").ClearContents
sat = 2
For i = 2 To Worksheets("Sayfa1").[C65536].End(3).Row
If Sheets("Sayfa1").Cells(i, 10).Value = "" Then
For j = 1 To 11
Sheets("Sayfa2").Cells(sat, j).Value = Sheets("Sayfa1").Cells(i, j).Value
Next j
sat = sat + 1
End If
Next i
End Sub