excel yardım anlayanlar bakarsa sevinirim

yok_06

Excel Soruları ve Cevapları

2352

16/02/2015, 10:39 #6

Üye

yok_06

Bul

Üye

Adı Soyadı: er.... ca....

Konum:

Ofis Versiyonu: Ofis 2010

Son Oturumu: 08/12/2016,15:38

Yorumları: 17

Konuları: 6

Kayıt Tarihi: 31/01/2015

Teşekkür Puanı: 0

usta yardımın için çok teşekkür ama ben anlatamadım sanırım

Sub aktar()
For i = 2 To 65536
Sheets("Sayfa2").Cells(i, 1) = ""
Sheets("Sayfa2").Cells(i, 2) = ""
Sheets("Sayfa2").Cells(i, 3) = ""
If Sheets("Sayfa1").Cells(i, 1) = Sheets("Sayfa1").Cells(i, 7) Then satırda 1inci sutünün 1inci satırını 7inci sutünün 7inci satırını eşleştiriyo sorun burda sanırım 1 sutun 1 satır 7 sutunda aratmak istiyorum eğer doğruysa sayfa 2 ye almak istiyorum
Sheets("Sayfa2").Cells(i, 1) = Sheets("Sayfa1").Cells(i, 1)
Sheets("Sayfa2").Cells(i, 2) = Sheets("Sayfa1").Cells(i, 2)
Sheets("Sayfa2").Cells(i, 3) = Sheets("Sayfa1").Cells(i, 8)
End If
Next i
MsgBox "Aktarım Tamam", , "Aktarım..........."
Sheets("Sayfa2").Select
End Sub

Cevapla