+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Soruları ve Cevapları (https://accesstr.net/forum-excel-sorulari-ve-cevaplari.html)
+--- Konu Başlığı: excel yardım anlayanlar bakarsa sevinirim (/konu-excell-yardim-anlayanlar-bakarsa-sevinirim.html)
excel yardım anlayanlar bakarsa sevinirim - yok_06 - 12/02/2015
örnek sayfayı ekledim ustalar yardım edermisiniz
örnek.rar
(Dosya Boyutu: 6,79 KB | İndirme Sayısı: 15)
Cvp: excel yardım anlayanlar bakarsa sevinirim - cemil_orhan - 12/02/2015
Anladığım kadarıyla,
Sayfa1 deki A sütünu G sütünuna eşitse
Sayfa2 ye tcno,id ve telno yu aktarsın
Sayfa1 deki AKTAR Butonuna tıklayın
Makro çalışmassa Makro güvenlik seviyesini kontrol ediniz
Cvp: excel yardım anlayanlar bakarsa sevinirim - cemil_orhan - 12/02/2015
Dosya ektedir
örnek.rar
(Dosya Boyutu: 11,3 KB | İndirme Sayısı: 7)
Cvp: excel yardım anlayanlar bakarsa sevinirim - yok_06 - 13/02/2015
(12/02/2015, 20:40)cemil_orhan yazdı: Dosya ektedir
yardım için tşk ederim ama benim demek istediğim A SÜTÜNU 1-656350 sonuna kadar G sütununa eşitse ,Sayfa2 ye A,B ve H hücresini aktarması
Cvp: excel yardım anlayanlar bakarsa sevinirim - cemil_orhan - 14/02/2015
(13/02/2015, 14:52)yok_06 yazdı:Bence 65536 kadar makroyu çalıştırmak zaman alır(12/02/2015, 20:40)cemil_orhan yazdı: Dosya ektedir
yardım için tşk ederim ama benim demek istediğim A SÜTÜNU 1-656350 sonuna kadar G sütununa eşitse ,Sayfa2 ye A,B ve H hücresini aktarması
Bunun yerine dolu hücre sayısı kadar işlem yaptırmak daha mantıklı olur,
dosya ektedir
örnek.rar
(Dosya Boyutu: 11,44 KB | İndirme Sayısı: 8)
Cvp: excel yardım anlayanlar bakarsa sevinirim - yok_06 - 16/02/2015
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