Araç Servis Takip Programı (AST-v.2) foruma eklenmiştir. 
http://www.excelce.net/forum/index.php?topic=1656.0

Gönderen Konu: Makroya "eğer" şartı ekleme hakkında  (Okunma sayısı 7209 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı drummers

  • Excelce Onbaşı
  • **
  • İleti: 33
  • Puan +1/-0
  • Cinsiyet: Bay
  • VBA şifrelerine kıl oluyorum
  • Ad Soyad: ömür can
  • İl / İlçe: izmir
Makroya "eğer" şartı ekleme hakkında
« : 22 Haziran 2011, 16:17:27 »
Sub Aktar()
Dim s1 As Worksheet, s2 As Worksheet
Set s1 = Sheets("data")
Set s2 = Sheets("kontrol")

s2.Range("C2:C300").Value = s1.Range("B2:B300").Value


End Sub


Bu makro ile data sekmesindeki "B2:B300" aralığındaki verilerimi kontrol sekmemdeki "C2:C300" aralığına aktarmaktayım

Sorum şudur: data sekmesindeki "P" sütununu kontrol edecek eğer "P" sütununda veri var ise ilgili satırdaki yani "B2:B300" aralığındaki veriyi kontrol sekmesine atmayacak.

Çevrimdışı Orion1

  • Excelce Teğmen
  • ****
  • İleti: 351
  • Puan +10/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Evren Gizlen
Ynt: Makroya "eğer" şartı ekleme hakkında
« Yanıtla #1 : 25 Haziran 2011, 22:43:44 »
Merhaba.
Aşağıdaki kod işinizi görecektir. 8 :cooll
İyi çalışmalar. :cooll

Kod: [Seç]
Sub kesan_corlu()
'coder:evren gizlen
'date:25.06.2011
'email: evrengizlen@hotmail.com
Dim adr As String
On Error Resume Next
Dim s1 As Worksheet, s2 As Worksheet
Set s1 = Sheets("data")
Set s2 = Sheets("kontrol")
s2.Range("C1:C30").Clear
adr = s1.Range("P1:P30").SpecialCells(2, 23).Offset(0, -14).Address
s1.Range(adr).Copy s2.Range("C1")
On Error GoTo 0
End Sub
« Son Düzenleme: 25 Haziran 2011, 23:28:32 Gönderen: Evren Gizlen »