Hücre biçimlendirme

[erdenek]

arkadaşlar ekte yer alan dosyadaki c d e f sütunlarında yer alan excel hücrelerini normal excel hücresine nasıl çevirebilirim.

 

[fireman64]

Denetim araç çubuğunu açıp tasarım modunu seçin fare ile seçerek textboxları silebilirsiniz

 

[erdenek]

Denetim araç çubuğunu açıp tasarım modunu seçin fare ile seçerek textboxları silebilirsiniz

denedim ama olmadı ya da ben beceremedim.

 

[erdenek]

arkadaşlar yok mu bir çözüm

 

[Korhan Ayhan]

Verilerinizin yedeğini alıp aşağıdaki kodu deneyiniz.

Sub Nesnelerdeki_Verileri_Hucreye_Aktar()
    Dim Resim As Shape
    
    On Error Resume Next
    
    For Each Resim In ActiveSheet.Shapes
        Cells(Resim.TopLeftCell.Row, Resim.TopLeftCell.Column) = CDbl(Resim.DrawingObject.Object.Value)
        Resim.Delete
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[erdenek]

Verilerinizin yedeğini alıp aşağıdaki kodu deneyiniz.

Sub Nesnelerdeki_Verileri_Hucreye_Aktar()
    Dim Resim As Shape
    
    On Error Resume Next
    
    For Each Resim In ActiveSheet.Shapes
        Cells(Resim.TopLeftCell.Row, Resim.TopLeftCell.Column) = CDbl(Resim.DrawingObject.Object.Value)
        Resim.Delete
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

hocam ellerine sağlık.çok güzel.yalnız hocam makroyu kaydettim daha sonra düğme ekledim fakat düğme tıkladıktan sonra işlem tamamlanıyor ama eklediğim düğme kayboluyor.

 

[YUSUF44]

Makro tüm düğmelerin verisini üstünde olduğu hücreye alıp o düğmeyi siliyor da ondan. Sonuçta o da bir düğme daha doğrusu nesne

 

[erdenek]

Makro tüm düğmelerin verisini üstünde olduğu hücreye alıp o düğmeyi siliyor da ondan. Sonuçta o da bir düğme daha doğrusu nesne

tamam üstadım.teşekkür ederim.iyi ki varsınız.

 

[steppe]

Butonu silmeden resim silme.Yalnız resim hangi sütunda ise o sütunun numarasını 7 yerine yaz.Örnek: Resim C sütununda ise 3 , E sütununda ise 5 yaz.Kolay gelsin.

Sub resim_sil()
For i = ActiveSheet.Shapes.Count To 1 Step -1
x = ActiveSheet.Shapes(i).TopLeftCell.Column
If x = 7 Then ActiveSheet.Shapes(i).Delete
Next
End Sub

 

[erdenek]

Butonu silmeden resim silme.Yalnız resim hangi sütunda ise o sütunun numarasını 7 yerine yaz.Örnek: Resim C sütununda ise 3 , E sütununda ise 5 yaz.Kolay gelsin.

Sub resim_sil()
For i = ActiveSheet.Shapes.Count To 1 Step -1
x = ActiveSheet.Shapes(i).TopLeftCell.Column
If x = 7 Then ActiveSheet.Shapes(i).Delete
Next
End Sub

hocam teşekkür ederim.ama benim dosyada resim birden fazla sütunda var. o zaman nasıl yapacağız.

 

[YUSUF44]

Şöyle olabilir: Eğer resim en son 8. sütunda varsa if x<9 olarak kullanılabilir. Bu durudma düğmeniz 9. veya sonraki sütundaysa silinmeyecektir.

 

[erdenek]

Butonu silmeden resim silme.Yalnız resim hangi sütunda ise o sütunun numarasını 7 yerine yaz.Örnek: Resim C sütununda ise 3 , E sütununda ise 5 yaz.Kolay gelsin.

Sub resim_sil()
For i = ActiveSheet.Shapes.Count To 1 Step -1
x = ActiveSheet.Shapes(i).TopLeftCell.Column
If x = 7 Then ActiveSheet.Shapes(i).Delete
Next
End Sub

hocam ellerine sağlık ama sizin verdiğiniz makro hücrelerdeki verileri de siliyor. verilerin silinmemesi gerekir.

 

[Korhan Ayhan]

Aşağıdaki gibi deneyiniz.

Sub Nesnelerdeki_Verileri_Hucreye_Aktar()
    Dim Resim As Shape
    
    On Error GoTo 10
    
    For Each Resim In ActiveSheet.Shapes
        If Resim.OLEFormat.progID = "Forms.HTML:Text.1" Then
            Cells(Resim.TopLeftCell.Row, Resim.TopLeftCell.Column) = CDbl(Resim.DrawingObject.Object.Value)
            Resim.Delete
10      End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[erdenek]

Aşağıdaki gibi deneyiniz.

Sub Nesnelerdeki_Verileri_Hucreye_Aktar()
    Dim Resim As Shape
    
    On Error GoTo 10
    
    For Each Resim In ActiveSheet.Shapes
        If Resim.OLEFormat.progID = "Forms.HTML:Text.1" Then
            Cells(Resim.TopLeftCell.Row, Resim.TopLeftCell.Column) = CDbl(Resim.DrawingObject.Object.Value)
            Resim.Delete
10      End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

hocam tam istediğim gibi olmuş ellerinize sağlık.