koşullu makro

[uslu45]

herkese merhaba,

ekteki tablomda a sütunundaki sayıları , I DAN AB sütununa kadar olan yerlere eğer C den H a kadar olan yerlerde varsa getirmesini istiyorum. sarı olanlar örnektir. c den h a kadar olan yerlerde tekrar edenler önemli değildir. 2 tane 5 varsa mesela sadece I sütunun altına gelen yere ilgili rakam yazılabilir.

 

[cengizank]

teşekkürler

 

[uslu45]

sn dr.ci makro şifrelemek demek ne demek anlamadım. örnek dosyamda şifre falan yok. ne demek istediniz açabilir misiniz.

 

[uslu45]

arkadaşlar yardımcı olursanız çok sevinirim

 

[Orion1]

Dosyanız ektedir.

Sub dagit()
Dim k As Range, i As Long, sat As Long
Sheets("Sheet1").Select
Application.ScreenUpdating = False
Range("I2:AB65536").Clear
sat = Cells(65536, "A").End(xlUp).Row
For i = 2 To sat
    For j = 3 To 8
        If Cells(i, j).Value <> "" Then
            Set k = Range("I1:AB1").Find(Cells(i, j).Value, , xlValues, xlWhole)
            If Not k Is Nothing Then Cells(i, k.Column).Value = Cells(i, "A").Value
        End If
    Next
Next
Application.ScreenUpdating = True
MsgBox "İşlem Tamamdır." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[uslu45]

evren gizlen eline bileğine bilgine sağlık...

Dosyanız ektedir.

Sub dagit()
Dim k As Range, i As Long, sat As Long
Sheets("Sheet1").Select
Application.ScreenUpdating = False
Range("I2:AB65536").Clear
sat = Cells(65536, "A").End(xlUp).Row
For i = 2 To sat
    For j = 3 To 8
        If Cells(i, j).Value <> "" Then
            Set k = Range("I1:AB1").Find(Cells(i, j).Value, , xlValues, xlWhole)
            If Not k Is Nothing Then Cells(i, k.Column).Value = Cells(i, "A").Value
        End If
    Next
Next
Application.ScreenUpdating = True
MsgBox "İşlem Tamamdır." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[cengizank]

sn dr.ci makro şifrelemek demek ne demek anlamadım. örnek dosyamda şifre falan yok. ne demek istediniz açabilir misiniz.

books4.xls dosyasısının içinde bulunan XLA'lar bunlar niye şifreli

 

[uzmanamele]

merhaba

books4.xls dosyasısının içinde bulunan XLA'lar bunlar niye şifreli

dosyada herhangi bir şifre yok.
sizin makinenizdeki XLA dosyalarında şifre var!
yeterli inceleme yapmadan arkadaşlarımızı töhmet altında bırakmayınız lütfen.