skylonely6
Normal Üye
- Excel Versiyonu
- Excel 2016
- Excel Sürümü
- 64 Bit
- Excel Dili
- Türkçe
Sub Formul_Kopyala()
Dim s1 As Worksheet, s2 As Worksheet, son As Long, x As Long, bas As Long
Set s1 = Sheets("Sayfa1"): Set s2 = Sheets("Sayfa2")
son = s2.Range("F" & Rows.Count).End(xlUp).Row ---verinin olduğu sütün
bas = s2.Range("G" & Rows.Count).End(xlUp).Row --- verinin kopalanacağı sütün
For x = 2 To son
s1.Range(bas).Copy s1.Range(s2.Cells(x, "F")) --- burada nasıl bir değişiklik yapmam gerekiyor böyle yaptım olmadı
Next x
Set s1 = Nothing: Set s2 = Nothing
son = 0: x = 0
End Sub
arkadaşlar merhabalar elimde veriler mevcut örnek olarak b2 sütununda ki veriyi c5 sütununa kopyalamam gerekiyor sütün bilgilerini sayfa2 de f sütununda kopyalanacak satır g sütununda ise nereye kopyalacağını belirledim. yukarıdaki formülde kendimce denedim ama olmadı kodu ne şekilde revize etmem gerekiyor yardımcı olur musunuz
Dim s1 As Worksheet, s2 As Worksheet, son As Long, x As Long, bas As Long
Set s1 = Sheets("Sayfa1"): Set s2 = Sheets("Sayfa2")
son = s2.Range("F" & Rows.Count).End(xlUp).Row ---verinin olduğu sütün
bas = s2.Range("G" & Rows.Count).End(xlUp).Row --- verinin kopalanacağı sütün
For x = 2 To son
s1.Range(bas).Copy s1.Range(s2.Cells(x, "F")) --- burada nasıl bir değişiklik yapmam gerekiyor böyle yaptım olmadı
Next x
Set s1 = Nothing: Set s2 = Nothing
son = 0: x = 0
End Sub
arkadaşlar merhabalar elimde veriler mevcut örnek olarak b2 sütununda ki veriyi c5 sütununa kopyalamam gerekiyor sütün bilgilerini sayfa2 de f sütununda kopyalanacak satır g sütununda ise nereye kopyalacağını belirledim. yukarıdaki formülde kendimce denedim ama olmadı kodu ne şekilde revize etmem gerekiyor yardımcı olur musunuz