Hatalı olanları işaretlemek

[tchsyn]

ekteki dosya için; orjınal sheet de dosyanın normal hali mevcut. Sheet1 de ise istediğim format mexvcuttur. burda satır sayısı değişken yeşil olan kısımlarsa formuller son kayıta kadar otomatık yazmalı. mavi vlookup kısmı ise sheet2 deki mavi code ıle sheet1 dekı code karsılaştırmalı. hatalı olanları işaretlemesini istiyorum. sağlaması içinde sheet2 deki vlookup sutunundan sheet1 deki code karşılaştırması yapmalıyım. bunun için ilgili makro yazmalıyız arkadaşlar..
yardımlarınızı rica ediyorum.

 

[tchsyn]

yardımcı olucak bir üstat yokmu?

 

[tchsyn]

Tum ustatlar burda benim sorunuma yardimci olacak proff yokmu arkadaslar

 

[tchsyn]

yardimm

Tum ustatlar burda benim sorunuma yardimci olacak proff yokmu arkadaslar

 

[spacebar]

arkadaşlar merhaba. bir kod yardımına ihtiyacım var. B sütununda olan pozitif rakamları D sütununa negatif sayıları E sütununa atacak. yardımlarınız için teşekkürler.

 

[spacebar]

Basit bir kod ama yazamiyorum.

 

[spacebar]

basit bir makro. yardım lütfen ...

 

[erolakgun]

basit bir makro. yardım lütfen ...

aşağıdaki kodu bir düğmeye atadığın zaman her satır için düğmeye basarak satırı düzenleyebilirsin. ilk olarak bakiyenin ilk satırı aktif olmalı.

şu an başka bir proje ile ilgileniyorum. biraz kafam dağınık otomatikleştiremedim ama boş bir zamanda daha geniş bakarım. eğer sen çözersen banada bir örneğini yollarsan sevinirim. kolay gelsin


If ActiveCell.Formula > 0 Then
ActiveCell.Copy
ActiveCell.Offset(0, 2).Select
ActiveCell.PasteSpecial
ActiveCell.Offset(1, -2).Select
Else
ActiveCell.Copy
ActiveCell.Offset(0, 3).Select
ActiveCell.FormulaR1C1 = ActiveCell.Offset(0, -3) * -1
ActiveCell.Offset(1, -3).Select
End If

 

[spacebar]

üstad güzel olmuş teşekkür ederim.

 

[erolakgun]

işini gördüyse ne ala kolay gelsin

 

[spacebar]

Ustad bazen satir sayisi 1000 i bulabiliyor. Bunu for next döngüsü ile yapna imkanı var mi. Tesekkurler

 

[ayseaybala]

Acil Yardım

merhaba
iki farkı excel dosyam var.1.bÖLGE Raporunu kmhesap excelime aktarmak istiyorum makroyla. ama bir türlü yapamadım yardımcı olabilir misiniz

 

[erolakgun]

Ustad bazen satir sayisi 1000 i bulabiliyor. Bunu for next döngüsü ile yapna imkanı var mi. Tesekkurler

aşağıdaki örnek yardımcı olur sanırım

Sub Makro3()
For a = 1 To 150
ActiveCell.Offset(0, 8).Select
ActiveCell.FormulaR1C1 = "=RC[-1]+RC[-2]+RC[-3]+RC[-4]+RC[-5]+RC[-6]+RC[-7]"
If ActiveCell.Value >= 7 Then
ActiveCell.Offset(0, -1).Interior.ColorIndex = 6
ActiveCell.Offset(0, -2).Interior.ColorIndex = 6
ActiveCell.Offset(0, -3).Interior.ColorIndex = 6
ActiveCell.Offset(0, -4).Interior.ColorIndex = 6
ActiveCell.Offset(0, -5).Interior.ColorIndex = 6
ActiveCell.Offset(0, -6).Interior.ColorIndex = 6
ActiveCell.Offset(0, -7).Interior.ColorIndex = 6
ActiveCell.Offset(0, -8).Interior.ColorIndex = 6
ActiveCell.Value = ""
ActiveCell.Offset(1, -8).Select
Else
ActiveCell.Value = ""
ActiveCell.Offset(1, -8).Select
End If
Next a
ActiveCell.Offset(-150, 0).Select
End Sub


next dönngüsünde 150 yerine kaç satır istiyorsan onu yazarsın

 

[erolakgun]

merhaba
iki farkı excel dosyam var.1.bÖLGE Raporunu kmhesap excelime aktarmak istiyorum makroyla. ama bir türlü yapamadım yardımcı olabilir misiniz

makroyu yarım bırakmışsınız. son satır olarak "Selection.Copy" var kopyaladıktan sonra bu veriyi nereye alacağınızı belirtmemişsiniz.

kolay gelsin