Veri Aktarimi

[tirinvest]

VB hakkinda hicbirsey bilmiyorum..If komutuyla veri aktarimi yapmak istiyorum.
eger su satir/kolon bossa/doluysa/su degerden buyukse/kucukse su sheete kopyala yada kirmizi goster nasil yazilir..

tesekkur ederim.

 

[AS3434]

Sayın tirinvest

Forumun Arama kutusuna
Makroda eğer
yazın çıkan sonuçları inceleyin.

 

[goddess1984]

Bir kaç basit kod yazıyorum, umarım sana fikir verir.
Saygılar

Sub deneme()
'
' deneme Makro

'
If (Range("A1") = "") Then
Range("B1").Value = "Deneme"
End If
If (Range("A1").Value > 15) Then
Range("B1").Value = "15 den büyük"
End If
If (Range("a1") = "kopyala") Then
Sheets("Sayfa2").Activate
Range("A1") = "kopyalandı"
End If

'
End Sub

 

[emrexcel123]

örnek >>
Sub deneme_if_fnksyn()
On Error Resume Next
If Rows("2:3").Value = Empty Then
MsgBox "UYARI"
End If
If Columns("A:B").Value = Empty Then
MsgBox "UYARI"
End If
End Sub
Sub deneme_if_fnksyn2()
adr = Range("a1")
dgr2 = Range("a2")
If dgr < dgr2 Then
Range("a1").Copy
Range("b1").PasteSpecial xlPasteAll
Application.CutCopyMode = False
End If
If dgr > dgr2 Then
Range("b1").Copy
Range("a1").PasteSpecial xlPasteAll
Application.CutCopyMode = False
End If
End Sub

 

[N.Ziya Hiçdurmaz]

Bir &#246;rnekte benden olsun.
'eger su satir/kolon bossa/doluysa/su degerden buyukse/kucukse
'su sheete kopyala yada kirmizi goster nasil yazilir..
Sub test()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
If s1.[a1] = "" Then
MsgBox "A1 bo&#351;"
End If
If s1.[a1] <> "" Then
MsgBox "A1 dolu"
End If
If s1.[a1] > 10 Then
s1.[a1].Copy
s2.[a1].PasteSpecial
End If
If [a1] < 10 Then
[a1].Interior.ColorIndex = 3
End If
Application.CutCopyMode = False
End Sub

 

[tirinvest]

Budur!

emreexcel123 :yazdigin kod calisti.
vb applications : sendende diger islemleri nasil yapabilecegimin fikirini ogrendim. ama kodunu calistiramadim.
goddess : henuz denemedim. ama deneyince yazacam.
as3434 : bilgi icin cok sagol cok makbule gecti .
Hepinize tesekkur ederim..
Ciddi kaliteli ve uzman kitleniz var..tebrikler.

 

[tirinvest]

peki sayin forum sakinleri sadece a1 degilde tum kolonu etkileyecek bir kodu nasil yazarim. yani a1:a100 araligi gibi?

 

[N.Ziya Hiçdurmaz]

for i=1 to 100 gibi bir d&#246;ng&#252; kurarak istedi&#287;iniz alan&#305; etki alt&#305;na alabilirsiniz.