Preguntas y Respuestas rapidas!

[Memothic]

Hola comunos los venia a molestar para ver si no sabían donde puedo conseguir una memoria stick Pro como esta


o en su defecto un adaptador para SD o micro que funcione como reemplazo la capacidad entre mas mejor.

Ya fui a Radioshack y no hay
fui a Sony center y dicen ya no las traen
fui a discoalmacen y no tienen dicen Sony las distribuía.
llame a casa Riva y el empleado me sono mero dundo y no se si en realidad no tengan pero el tipo me dijo que no.

Gracias por la ayuda.

[mil123]

yo tengo uno de esos adaptadores pero solo se pueden usar con memorias M2 pero NO  con micro sd


Nota: Creo que tengo una M2 de 128MB

[sarezer]

Hola comunos los venia a molestar para ver si no sabían donde puedo conseguir una memoria stick Pro como esta


o en su defecto un adaptador para SD o micro que funcione como reemplazo la capacidad entre mas mejor.

Ya fui a Radioshack y no hay
fui a Sony center y dicen ya no las traen
fui a discoalmacen y no tienen dicen Sony las distribuía.
llame a casa Riva y el empleado me sono mero dundo y no se si en realidad no tengan pero el tipo me dijo que no.

Gracias por la ayuda.

yo tengo una de 4gb me salio cara esa babosada y ni la ocupe casi

[Memothic]

yo tengo una de 4gb me salio cara esa babosada y ni la ocupe casi

Cuanto queres? en que estado esta?

[tekun]

hey saben si en excel se puede poner que sombree las palabras mal escritas? como se hace? no lo he encontrado.... y ya me aburri

[ernesto84]

hey saben si en excel se puede poner que sombree las palabras mal escritas? como se hace? no lo he encontrado.... y ya me aburri

Lo que se me ocurre es que ceees un formato condicional para que sombree palabras igual a..

Enviado desde mi GT-I8190L

[XtremeH]

hey saben si en excel se puede poner que sombree las palabras mal escritas? como se hace? no lo he encontrado.... y ya me aburri

¿Palabras mal escritas? ¿A qué te referis? ¿Ortografía, gramática, o que escrbia así?

[Francisco™]

hey saben si en excel se puede poner que sombree las palabras mal escritas? como se hace? no lo he encontrado.... y ya me aburri

mira si te funciona esto:

Código: [Seleccionar]

Option Explicit
Sub HighlightMisspelledWords()

' Purpose: SpellChecks the entire sheet (or some other specified range) Cell-by-Cell and Word-by-Word,
' highlighting in a color those Words and those Cells with misspelled Words.
' This can run S-L-O-W since it is calling the SpellChecker for each individual Word.

' Optionally can set the Column number that you want the text MISSPELLED inserted into
' so that you can later sort the sheet on that Column to consolidate the problem Rows.

' Version 1.0.2, September 2009, Rick Powell


' You can specify a Range by indicating the upper left and the lower right Cell.
' The default Range uses the entire used area of the Sheet.
Dim oRange As Excel.Range
'Set oRange = Range("A1:D500")
Set oRange = ActiveSheet.UsedRange

Application.ScreenUpdating = True

' You can pick which Dictionary Language to spell check against.
' There are many, but the following are the most likely.
'Application.SpellingOptions.DictLang = msoLanguageIDEnglishUS ' value 1033
Application.SpellingOptions.DictLang = msoLanguageIDEnglishUK ' value 2057

' Other possible spell check options.
Application.SpellingOptions.SuggestMainOnly = True
' The following assumes you want the SpellChecker to ignore Uppercase things, like ACRONYMS.
Application.SpellingOptions.IgnoreCaps = True
Application.SpellingOptions.IgnoreMixedDigits = True
Application.SpellingOptions.IgnoreFileNames = True

' For Cell Highlighting, there are 8 named colors you may choose from:
' vbBlack, vbWhite, vbRed, vbGreen, vbBlue, vbYellow, vbMagenta, vbCyan.
Dim lCellHighlightColor As Long
lCellHighlightColor = vbYellow

' For Word Highlighting, there are 8 named colors you may choose from:
' vbBlack, vbWhite, vbRed, vbGreen, vbBlue, vbYellow, vbMagenta, vbCyan.
Dim lWordHighlightColor As Long
lWordHighlightColor = vbRed

' You should set these next 3 items
' if you want to have one Column used to mark ANY Cell misspellings for the entire Row.
Dim bColumnMarker As Boolean
'bColumnMarker = False
bColumnMarker = True

' Column A = 1, Column B = 2, etc.
Dim iColumnToMark As Integer
iColumnToMark = 7

Dim sMarkerText As String
sMarkerText = "MISSPELLED"

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' The values for the items above should be modified by the user, as necessary. '
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

On Error GoTo 0

Dim oCell As Object
Dim iLastRowProcessed As Integer
iLastRowProcessed = 0

For Each oCell In oRange

If ((bColumnMarker = True) And _
(iLastRowProcessed <> oCell.Row)) Then
' When beginning to process each new Row, clear out any previous MISSPELLED marker.
iLastRowProcessed = oCell.Row
Cells(oCell.Row, iColumnToMark) = ""
End If
Rows(oCell.Row).Select

' Boolean to track for ANY misspelling in the Cell.
Dim bResultCell As Boolean
bResultCell = True

' First spell check the entire cell (if less than 256 chars).
' This can catch some grammatical errors even if no spelling errors.
If (Len(oCell.Text) < 256) Then
bResultCell = Application.CheckSpelling(oCell.Text)
End If

Dim iTrackCharPos As Integer
iTrackCharPos = 1

' Split the Text in the Cell into an array of words, using a Space as the delimiter.
Dim vWords As Variant
vWords = Split(oCell.Text, Chr(32), -1, vbBinaryCompare)
Dim i As Integer

' Check the spelling of each word in the Cell.
For i = LBound(vWords) To UBound(vWords)

Dim iWordLen As Integer
iWordLen = Len(vWords(i))

Dim bResultWord As Boolean
' Note that a Word longer than 255 characters will generate Error 13.
' Any character string without any embedded space is considered a Word.
bResultWord = Application.CheckSpelling(Word:=vWords(i))

If (bResultWord = False) Then
' Thinks it is misspelled.
' Check for trailing punctuation and plural words like ACTION-EVENTs.
' The following is crude and should be made more robust when there is time.
If (iWordLen > 1) Then
Dim iWL As Integer
For iWL = iWordLen To 1 Step -1
If (Not (Mid(vWords(i), iWL, 1) Like "[0-9A-Za-z]")) Then
vWords(i) = Left(vWords(i), (iWL - 1))
Else
Exit For
End If
Next iWL
If (Mid(vWords(i), iWL, 1) = "s") Then
' Last letter is lowercase "s".
vWords(i) = Left(vWords(i), (iWL - 1))
End If
' Retest.
bResultWord = Application.CheckSpelling(Word:=vWords(i))
End If
End If

If (bResultWord = True) Then
' If this is an Uppercased and Hyphenated word, we should split and lowercase then check each portion.
If ((Len(vWords(i)) > 0) And (vWords(i) = UCase(vWords(i)))) Then
' Word is all Uppercase, check for hyphenation.
Dim iHyphenPos As Integer
iHyphenPos = InStr(1, vWords(i), "-")
If (iHyphenPos > 0) Then
' Word is also hyphenated, split and lowercase then check each portion.
Dim vHyphenates As Variant
vHyphenates = Split(LCase(vWords(i)), "-", -1, vbBinaryCompare)
Dim iH As Integer
' Check the spelling of each newly lowercased portion of the word.
For iH = LBound(vHyphenates) To UBound(vHyphenates)
bResultWord = Application.CheckSpelling(Word:=vHyphenates(iH))
If (bResultWord = False) Then
' As soon as any portion is deemed misspelled, then done.
Exit For
End If
Next iH
End If
End If
End If

If (bResultWord = False) Then
bResultCell = False
' Highlight just this misspelled word in the Cell.
oCell.Characters(iTrackCharPos, iWordLen).Font.Bold = True
oCell.Characters(iTrackCharPos, iWordLen).Font.Color = lWordHighlightColor
Else
' Clear any previous Highlight on just this word.
oCell.Characters(iTrackCharPos, iWordLen).Font.Bold = False
oCell.Characters(iTrackCharPos, iWordLen).Font.Color = vbBlack
End If

iTrackCharPos = iTrackCharPos + iWordLen + 1

Next i

If (bResultCell = True) Then
' The text contents of this Cell are NOT misspelled.
' Remove any previous highlighting by setting the Fill Color to the "No Fill" value.
oCell.Interior.ColorIndex = xlColorIndexNone
Else
' At least some of the text contents of this Cell are misspelled, so highlight the Cell.
oCell.Interior.Color = lCellHighlightColor
' Mark the Row, if requested.
If (bColumnMarker = True) Then
Cells(oCell.Row, iColumnToMark) = sMarkerText
End If
End If

Next oCell

End SubSource: http://visualbasic.ittoolbox.com/groups/technical-functional/visualbasic-l/excel-spell-checker-vba-code-3017915

asi como esta tiene la limitante que no esta automatizado y debes ejecutarlo para que resalte las celdas y cambie de color las palabras que tienen errores asi como tambien para quitar lo resaltado o el color a las palabras corregidas

acabo de probarlo en excel 2013 y funciona bastante bien, y esta vergon ya que utiliza el diccionario que este por defecto en excel

[tekun]

¿Palabras mal escritas? ¿A qué te referis? ¿Ortografía, gramática, o que escrbia así?

simon, es que word subrraya las palabras mal escritas... pero en excel no he encontrado como hacerlo, si es que se puede...

mira si te funciona esto:

Código: [Seleccionar]

Option Explicit
Sub HighlightMisspelledWords()

' Purpose: SpellChecks the entire sheet (or some other specified range) Cell-by-Cell and Word-by-Word,
' highlighting in a color those Words and those Cells with misspelled Words.
' This can run S-L-O-W since it is calling the SpellChecker for each individual Word.

' Optionally can set the Column number that you want the text MISSPELLED inserted into
' so that you can later sort the sheet on that Column to consolidate the problem Rows.

' Version 1.0.2, September 2009, Rick Powell


' You can specify a Range by indicating the upper left and the lower right Cell.
' The default Range uses the entire used area of the Sheet.
Dim oRange As Excel.Range
'Set oRange = Range("A1:D500")
Set oRange = ActiveSheet.UsedRange

Application.ScreenUpdating = True

' You can pick which Dictionary Language to spell check against.
' There are many, but the following are the most likely.
'Application.SpellingOptions.DictLang = msoLanguageIDEnglishUS ' value 1033
Application.SpellingOptions.DictLang = msoLanguageIDEnglishUK ' value 2057

' Other possible spell check options.
Application.SpellingOptions.SuggestMainOnly = True
' The following assumes you want the SpellChecker to ignore Uppercase things, like ACRONYMS.
Application.SpellingOptions.IgnoreCaps = True
Application.SpellingOptions.IgnoreMixedDigits = True
Application.SpellingOptions.IgnoreFileNames = True

' For Cell Highlighting, there are 8 named colors you may choose from:
' vbBlack, vbWhite, vbRed, vbGreen, vbBlue, vbYellow, vbMagenta, vbCyan.
Dim lCellHighlightColor As Long
lCellHighlightColor = vbYellow

' For Word Highlighting, there are 8 named colors you may choose from:
' vbBlack, vbWhite, vbRed, vbGreen, vbBlue, vbYellow, vbMagenta, vbCyan.
Dim lWordHighlightColor As Long
lWordHighlightColor = vbRed

' You should set these next 3 items
' if you want to have one Column used to mark ANY Cell misspellings for the entire Row.
Dim bColumnMarker As Boolean
'bColumnMarker = False
bColumnMarker = True

' Column A = 1, Column B = 2, etc.
Dim iColumnToMark As Integer
iColumnToMark = 7

Dim sMarkerText As String
sMarkerText = "MISSPELLED"

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' The values for the items above should be modified by the user, as necessary. '
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

On Error GoTo 0

Dim oCell As Object
Dim iLastRowProcessed As Integer
iLastRowProcessed = 0

For Each oCell In oRange

If ((bColumnMarker = True) And _
(iLastRowProcessed <> oCell.Row)) Then
' When beginning to process each new Row, clear out any previous MISSPELLED marker.
iLastRowProcessed = oCell.Row
Cells(oCell.Row, iColumnToMark) = ""
End If
Rows(oCell.Row).Select

' Boolean to track for ANY misspelling in the Cell.
Dim bResultCell As Boolean
bResultCell = True

' First spell check the entire cell (if less than 256 chars).
' This can catch some grammatical errors even if no spelling errors.
If (Len(oCell.Text) < 256) Then
bResultCell = Application.CheckSpelling(oCell.Text)
End If

Dim iTrackCharPos As Integer
iTrackCharPos = 1

' Split the Text in the Cell into an array of words, using a Space as the delimiter.
Dim vWords As Variant
vWords = Split(oCell.Text, Chr(32), -1, vbBinaryCompare)
Dim i As Integer

' Check the spelling of each word in the Cell.
For i = LBound(vWords) To UBound(vWords)

Dim iWordLen As Integer
iWordLen = Len(vWords(i))

Dim bResultWord As Boolean
' Note that a Word longer than 255 characters will generate Error 13.
' Any character string without any embedded space is considered a Word.
bResultWord = Application.CheckSpelling(Word:=vWords(i))

If (bResultWord = False) Then
' Thinks it is misspelled.
' Check for trailing punctuation and plural words like ACTION-EVENTs.
' The following is crude and should be made more robust when there is time.
If (iWordLen > 1) Then
Dim iWL As Integer
For iWL = iWordLen To 1 Step -1
If (Not (Mid(vWords(i), iWL, 1) Like "[0-9A-Za-z]")) Then
vWords(i) = Left(vWords(i), (iWL - 1))
Else
Exit For
End If
Next iWL
If (Mid(vWords(i), iWL, 1) = "s") Then
' Last letter is lowercase "s".
vWords(i) = Left(vWords(i), (iWL - 1))
End If
' Retest.
bResultWord = Application.CheckSpelling(Word:=vWords(i))
End If
End If

If (bResultWord = True) Then
' If this is an Uppercased and Hyphenated word, we should split and lowercase then check each portion.
If ((Len(vWords(i)) > 0) And (vWords(i) = UCase(vWords(i)))) Then
' Word is all Uppercase, check for hyphenation.
Dim iHyphenPos As Integer
iHyphenPos = InStr(1, vWords(i), "-")
If (iHyphenPos > 0) Then
' Word is also hyphenated, split and lowercase then check each portion.
Dim vHyphenates As Variant
vHyphenates = Split(LCase(vWords(i)), "-", -1, vbBinaryCompare)
Dim iH As Integer
' Check the spelling of each newly lowercased portion of the word.
For iH = LBound(vHyphenates) To UBound(vHyphenates)
bResultWord = Application.CheckSpelling(Word:=vHyphenates(iH))
If (bResultWord = False) Then
' As soon as any portion is deemed misspelled, then done.
Exit For
End If
Next iH
End If
End If
End If

If (bResultWord = False) Then
bResultCell = False
' Highlight just this misspelled word in the Cell.
oCell.Characters(iTrackCharPos, iWordLen).Font.Bold = True
oCell.Characters(iTrackCharPos, iWordLen).Font.Color = lWordHighlightColor
Else
' Clear any previous Highlight on just this word.
oCell.Characters(iTrackCharPos, iWordLen).Font.Bold = False
oCell.Characters(iTrackCharPos, iWordLen).Font.Color = vbBlack
End If

iTrackCharPos = iTrackCharPos + iWordLen + 1

Next i

If (bResultCell = True) Then
' The text contents of this Cell are NOT misspelled.
' Remove any previous highlighting by setting the Fill Color to the "No Fill" value.
oCell.Interior.ColorIndex = xlColorIndexNone
Else
' At least some of the text contents of this Cell are misspelled, so highlight the Cell.
oCell.Interior.Color = lCellHighlightColor
' Mark the Row, if requested.
If (bColumnMarker = True) Then
Cells(oCell.Row, iColumnToMark) = sMarkerText
End If
End If

Next oCell

End SubSource: http://visualbasic.ittoolbox.com/groups/technical-functional/visualbasic-l/excel-spell-checker-vba-code-3017915

asi como esta tiene la limitante que no esta automatizado y debes ejecutarlo para que resalte las celdas y cambie de color las palabras que tienen errores asi como tambien para quitar lo resaltado o el color a las palabras corregidas

acabo de probarlo en excel 2013 y funciona bastante bien, y esta vergon ya que utiliza el diccionario que este por defecto en excel

el desvergue es que quiero que este en todas las PC y en todos los libros que abran o creen en excel

[salvadoresc]

en excel creo que tenes que hacer el spell check manual, no es como word que se activa automaticamente.

si tefijas aca no mencionan excel

http://support.microsoft.com/kb/937422
https://support.office.com/en-us/article/check-the-spelling-cab319e8-17df-4b08-8c6b-b868dd2228d1#__toc289065090

[XtremeH]

simon, es que word subrraya las palabras mal escritas... pero en excel no he encontrado como hacerlo, si es que se puede...

Fijate que leyendo esto:

http://office.microsoft.com/en-sg/outlook-help/choose-how-spell-check-and-grammar-check-work-HP010354280.aspx

Veo que esa opción para Excel no está (O al menos así lo entendí). Allí sólo quedaría pasarle con el F7 el corrector automático; porque no creo que esa opción esté para Excel. Lo que tengo de ver computadoras y lo que acabo de leer en un par de sitios, me dicen que no.

[tekun]

que mieeeerda.... bueno ni modo....

encontre esto, gracias a chamba http://office.microsoft.com/en-gb/excel-help/check-the-spelling-in-a-worksheet-HP005199294.aspx

fuk exsel

[salvadoresc]

estas cagado xD nimodo... chequeos manuales de ortografia.

[sarezer]

Cuanto queres? en que estado esta?

tengo esta memory stick pro duo que creo que es la misma babosada pero recortada porque cabe en adactador metiendole un clip para extraerla porque queda bien adentro


$10 para hoy porque no tengo tiempo y regalo el adaptador

Estado excelente 10/10  porque pense que la habia perdido y hasta que lei tu post por azares del destino la encontre 

[ernestoelunico]

si se puede chequear algunas cosas pero el detalle esta por la funciones que llevan palabras con numeros