MAKRO YARDIM

[batuklar]

ARKADAŞLAR BİR SUTUNDAKİ TÜM" 0" İÇEREN HÜCRELERİN YANINDAKİ HÜCRELERE DE "0" ATAMAK İSTİYORUM NASIL BİR FORMÜL VE MAKRO OLUŞTURMALIYIM YARDIMCI OLURMUSUNUZ.

 

[turist]

A sütununda veriler varsa
B1 hücresine:
=EĞER(A1=0;0;"")
yazıp deneyin

 

[batuklar]

TEŞEKKÜR EDERİM
FAKAT SIFIRDAN BÜYÜK OLAN A1 HÜCRELERİ B1 DE HÜCREYİ SİLİYOR.

 

[batuklar]

A sütununda veriler varsa
B1 hücresine:
=EĞER(A1=0;0;"")
yazıp deneyin

TEŞEKKÜR EDERİM
FAKAT SIFIRDAN BÜYÜK OLAN A1 HÜCRELERİ B1 DE HÜCREYİ SİLİYOR.

 

[turist]

Örnek dosyanız olmadan nasıl bir sonuç almak istediğinizi anlamak zor.
=EĞER(A1=0;0;A1) şeklinde deneyin.
veya
B1 hücresine sadece
=A1 yazın.

 

[batuklar]

ÖRNEK DOSYA DA ATAYIM
30 BİN ÜRÜN LİSTESİ VAR BURADA MEVCUDUN SIFIR OLANLARI FİYATLARINIDA SIFIR ATAMAK İSTİYORUM.TEK FORMÜLLE.

 

[turist]

E sütununda;
E2 hücresinde bir Formül var mı?

 

[batuklar]

E sütununda;
E2 hücresinde bir Formül var mı?

FORMÜL ŞUAN YOK

 

[turist]

Dosyanızın yedeğini alarak deneyin,aşağıdaki Kod'u kullanabilirsiniz.

Sub SIFIRLA()
son = Cells(Rows.Count, "E").End(xlUp).Row
For i = 2 To son
If Cells(i, "E") = 0 Then Cells(i, "F") = 0
Next i
End Sub

 

[batuklar]

Dosyanızın yedeğini alarak deneyin,aşağıdaki Kod'u kullanabilirsiniz.

Sub SIFIRLA()
son = Cells(Rows.Count, "E").End(xlUp).Row
For i = 2 To son
If Cells(i, "E") = 0 Then Cells(i, "F") = 0
Next i
End Sub

DENEYİP NETİCEYİ BİLDİRİYORUM HEMEN

 

[batuklar]

DENEYİP NETİCEYİ BİLDİRİYORUM HEMEN

TEŞEKKÜRLER TAM İSTEDİĞİM GİBİ OLDU

 

[turist]

İyi çalışmalar.