yeni tablo oluşturma

[excel]

merhaba,

ekli dosyada açıklama yaptım.

tşk

 

[zafer]

Merhaba

ekli dosyayı inceleyiniz.

 

[nziya]

Sub test()
Range("F6:G9").Clear
For Each bak1 In Range("e6:e9")
For Each bak2 In Range("a2:a16")
If bak1 = bak2 Then
bak2.Select
Range("f" & say + 6 & ":g" & say + 6) = Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0, 2)).Value
say = WorksheetFunction.CountA([f1:f65536])
End If
Next
Next
End Sub

 

[excel]

yeni tablo

merhaba,
İlginize teşekkürler,
acaba bu problemi macro kullanmadan da, çözmek mümkün olur mu?
tşk.

 

[Seyit Tiken]

Düşeyara'yı deneyin.